- 
- 


o 


:i 
- 
o 
'z 
'« 


, 


. 


Im@lIDlIDW 


, 


; 


,. 


j 


,Jt
 l}¿r 418" ÑO 
'1 




'I']:I:J:f.1/'JI:I
'I'fiiJiliJ!J1'l:.':I[,

 .,"1/: 
 '. 


)60 P'as. 


Canarias 160 ptas. 


DISCO LASER 
PARA 
AMSTRAD 


PRESENTACION 
OFICIAL DEL 
PCW8256 y 
DEL CPC6128 


A PARTIR 
DE AHORA, 
EL AMSTRAD 
YA TIENE 
SPRITES. 


A MSCARD: 
BASE DE DATOS 
EN DISCO COMPATIBLE 
CON TODOS LOS 
AMSTRAD 
SOFTWARE 


La aventura continúa. 
La guerra de las galaxias 
con Starstrike. 
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Venta a plazos hasta 36 meses. 
Servimos tiendas 
Tel: 227 9' 99 
Nuevo Amstrad CPC6' 28 
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TARJETA DE SUSCRIPCION AHORRO/REGALO 


(Si lo prefieres suscríbete por teléfono (91) 733 50 12 (91) 733 50 16) 
Oferta especial para recibir en tu domicilio todo un año la revista semanal 
Microhobby AMSTRAD 
con un descuento de 1.600 ptas., iy el regalo de una cinta 
original por valor de 2.100 ptas.! 
I-ECHA LIMITE DE RESPUESTA: jSENALA EL NOMBRE DE LA CINTA QUE 
30 DE NOVIEMBRE DE 1985 PREFIERES Y LA RECIBIRAS EN TU CASA, 
JRESPONDE HOY MISMOI GRATIS, A VUELTA DE CORREOI 
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Deseo suscnblrme a Microhobby AMSTRAD duranle un año por 50105.900 ptas., lo que me supone un ahorro de 1.600 ptas. 
1::1 primer número que deseo recibir es el 
t:nvicnme GRATIS la clnla de programas que le indicO con una (X) 
O Beach Head O Combat Lynx O D.T. Decathlon 


NOMBRE 
APELLIDOS 
DOMICILIO 
CIUDAD 
C. POSTAL 


EDAD 


TELEFONO 


PROVINCIA 
PROFESION 


Marco con una (X) en el casillero correspondlenle la 10rmiJ de pago que mas me conviene. 
O Talón bancario adlunlo a nombre HOflSY PRESS, S, A. O Giro Poslal N.o 
primer número, lunlo a la casselle regalo. O VISA N.o 
Fecha de caducidad de la larjela 


O Conlra reembolso del 
O MASTER CHARGE N.o 


Firma: 


Presidente 
Moría Andrino 
Conselero Delegodo 
José 1. Gómez-Centurión 


Jefe de Publicidad 
Concho Gutiérrloz 
Publicidad Barcelona 
José Galón Cortes 
Tel: (93) 303 1022/31371 62 


Secretaria de Dirección 
Moriso Cogorro 
Suscripclones 
M.o Rosa Gonzólez 
M O del Mor Calzado 
Redacción, Administración 
y Publicidad 
Lo Granja, sIn 
Polígono Industrial de Alcobendas 
Tel.: 65432 11 
Telex: 49480 HOPR 


Dto. Circulación 
Carlos Peropodre 
Distribución 
Coedis. S. A. Valencia, 245 
Borcelono 


Imprime 
ROTEDIC, S. A. Crlo. de Irún. 
Km. 12.450 (MADRID) 
Fotocomposicíón 
Novocomp, S.A. 
Nicolós Moroles, 38.40 
Fotomecánica 
GROF 
Ezequiel Solano, 16 
Depósito Legal: 
M-28468.1985 


Derechos exclusivos 
de la revisto 
COMPUTING with 
the AMSTRAO 


Repre\enlonle poro Argentino, Chile, 
Uruguay y Paroguay, Cia. 
Americano de Edic.ianes, S,R,L. Sud 
Ame,ico 1.532. 1el.: 21 2464. 1209 
BUENOS AIRES (Argentino). 
M. H. AMSTRAD no se hace 
necesoriamente solidario de los 
opinione!r ....erlida'ir por sus 
colaborodare'ir en los orllc.ulos 
fIrmados, Rf'..ervados lodo
 los 
derechos. 


Se solicitara control OJO 


posos U 
Todas las funciones y comandos relacionados 
con el tratamiento de cadenas expuestos de 
forma sencilla y comprensible para el 
principiante. 
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" Indescomp 
Se presenta oficialmente la nueva gama de 
productos Indescomp: los Amstrad CPC612B, 
PCWB256 y el Spectravideo X'Press. 


Análisis 


J 


Un completo eiemplo de cómo usar y 
programar las teclas de función del Amstrad, 
aplicado a tener disponibles, pulsando una sola 
tecla, las palabras clave más importantes del 
Basic. 
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:cos muy especiales 
'el a pixel por la 
:J de la pantalla por 


ite crearlos fácilmente 
JCiones {el comando 


: '" I j r 
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Joystick 
Skywalker, Darth Vader, Obí-Uan-Kenobi, 
nombres famosos y vivos en tu Amstrod con el 
programa Starstrike. 


Serie oro 


Pocos programas son tan conocidos, y tan 
útiles, como las bases de datos. Amstrad es 
una implementación de esta idea escrita 
íntegramente en Basic, que maneia 
simultáneamente ficheros de lectura y escritura, 
y es compatible con cualquier Amstrad 
siempre que esté dotado de unidad de disco. 


28 Código 
Máquina 
Estudiamos las características y condicionantes 
del resto de los f1ags del IBO. 
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POSI;l' 


HOBBY PBESS,s.A. 


Apartado de Correos 


n," 54.062 (Apartados AlIas) 


MADRID 
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01))05 
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Venta a plazos hasta 36 meses. 
Servimos tiendas 
Te/: 227 91 99 
Nuevo Amstrad CPC6128 
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Director Editorlol 
José 1. Gómez.Centuri6n 
Director Ejecutivo 
Victor Prieto 
Subdlrector 
José Moría Díoz 
Redoctora Jefe 
Marta Gordo 
Diseño 
José Flores 
Colaboradores 
Francisco Porlolo 
Pedro Sudón 
Miguel Sepúlveda 
Francisco Martín 
Jesús Alonso 
Pedro S. Pérez 
Amalio Gómez 
Juan J. Martínez 
Secretaria Redacción 
Carmen Santo moría 
Fotografía 
Carlos Condel 
Javier Martinez 
Portada 
J. Igual 
lIustradores 
Javier Igual, J, Pons, F, L. 
Frontón, J. Seplien. Pejo, J, J. 
Moro. Luigi Pérez 


Edita 
HOBBY PRESS S.A. 


Presidente 
Moría Andrina 
Consejero Delegado 
José 1. Gómez.Centurión 


Jefe de Publicidad 
Concho Guliérréz 
Publicidad Barcelona 
José Galón Cortes 
Tel: (93) 3031022/31371 62 


Secretaria de Dirección 
Mariso Cagorro 


Suscripclones 
M. o Rosa Gonzólez 
M.o del Mor Calzado 


Redacción, Administración 
y Publicidad 
Lo Granja. s/n 
Polígono Industrial de Alcobendas 
Te!.: 65432 11 
Telex: 49 4BO HOPR 


Dto. Circulación 
Carlos Peropadre 


Distribución 
Coedis, S. A. Valencia, 245 
Barcelona 


Imprime 
ROTEDIC. S. A, Crla. de Irun. 
Km. 12,450 (MADRID) 
Fotocomposición 
Novocomp, S.A, 
Nicolás Morales, 38-40 
Fotomecánica 
GROF 
Ezequiel Solano, 16 
Depósito legal: 
M.2846B.1985 


Derechos exclusivos 
de lo revisto 
COMPUTlNG with 
the AMSTRAD 


R
pr
senran'e paro Argenlino, Chile, 
Uruguay y Paraguay, Cie, 
Americana de EdicIones, S,R, L. Sud 
América 1.532. Te!.: 2 J 24 64, 1209 
BUENOS AIRES (Argenl;no). 
M. H. AMSTRAD no se hace 
necesoriomenle solidario de las 
opIniones verltda
 por su
 
colaboradores en los arflculas 
firmados_ Reservados todos los 
derechos, 


Se solicitara control OJO 
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Año J · Número]] · 72 al 78 de Noviembre de 7985 
750 ptas, (sobretasa Canarias, 7 O ptas.) 


5 Primero 
plano 
Ha llegado el Compact Oisc para nuestros 
ordenadores. El lenguaje C ya está disponible 
en cinta/disco. 


Primeros 6 
posos 
Todas las funciones y comandos relacionados 
con el tratamiento de cadenas expuestos de 
forma sencilla y comprensible para el 
principiante. 
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J J Indescomp 
Se presenta oficialmente la nueva gama de 
productos Indescomp: los Amstrad CPC612B, 
PCWB256 y el Spectravídeo X'Press. 


Análisis 


.4 


Un completo e;emplo de cómo usar y 
programar las teclas de función del Amstrad, 
aplicado a tener disponibles. pulsando una sola 
tecla, las palabras clave más importantes del 
Ba sic. 
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ProgramAcción J5 


Los sprites son unos gráficos muy especiales 
capaces de desplazarse pixel a pixel por la 
pantalla sin alterar el fondo de la pantalla por 
el que se mueven. 
El Amstrad Basic permite crearlos fácilmente 
mediante el uso de interrupciones (el comando 
EVERYj. 
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Joystick 
Skywalker, Oarth Vader, Obi-Uan-Kenobi. 
nombres famosos y vivos en tu Amstrad con el 
programa Starstrike. 


Serie oro 


Pocos programas son tan conocidos. y tan 
útiles. como las bases de datos. Amstrad es 
una implementación de esta idea escrita 
íntegramente en Basic. que mane;a 
simultáneamente ficheros de lectura y escritura, 
y es compatible con cualquier Amstrad 
siempre que esté dotado de unidad de disco. 


2 1 0 Código 
U Máquina 
Estudiamos las características y condicionantes 
del resto de los flags del IBO. 
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EL MAS 
PODEROSO 


£el mondo <obe lo q"e 
significan las siglas I BM en el mundo 
de la informática, a cualquier nivel 
imaginable. 
Pero no todos conocen otro nom- 
bre mágico que vive y prospera a la 
sombra de IBM, y que, sin embargo, 
es una de las principales bases don- 
de la multinacional americana se ha 
apoyado en los últimos años. 
Nos referimos a Intel, la empresa 
que tuvo la suerte de ver su proce- 
sador 8088 dentro del IBM pc. 
Desde entonces han pasado mu- 
chas cosas; los competidores fabri- 
cantes de chips entraron en liza ofre- 
ciendo al consumidor micra procesa- 
dores más baratos y potentes que el 
de Intel, de manera cada vez más 
notoria. 
Por supuesto que Intel reaccionó 
lanzando nuevas cosas, como el 
80286, el procesador que constituye 
el corazón del nuevo I BM A T (de Ad- 
vanced Technology), pero ahora ha 
dado el salto definitivo creando al su- 
cesor de éste: ellntel80386, que ha 
sido llamado, con razón, el micro- 
procesador más poderoso del mun- 
do. 
Es de 32 bits, y puede aplicarse 
igualmente a ordenadores persona- 
les, telecomunicaciones y robots in- 
dustriales. Es dos veces más rápido, 
como mínimo, que el de sus compe- 
tidores y puede ejecutar 4 millones 
de órdenes por segundo. 
Más de 30 empresas en USA, in- 
cluidas I BM, A TI, Sperry y otras, han 
decidido adoptarlo para sus próxi- 
mos modelos. 
Excuso decir que, de nuevo, IBM 
se llevará la parte del león en cuan- 
to a trato privilegiado por parte de 
Intel. 
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SOFTWARE 
JAPONES 


Gracias a un acuerdo entre la ca- 
sa inglesa de soft Ocean y la japo- 
nesa Konami, los mejores juegos ti- 
po arcade de esta última compañía 
serán adaptados al Amstrad en bre- 
ve plazo. 
Los primeros en ser «transplanta- 
dos» serán los famosísimos Hypers- 
ports y T ennis de Konami. 
Otros nombres de juegos en car- 
tera son: Yie Air, Kung-Fú, Hyper 
Rally y Konami's golf. 
Ocean comercializará estos pro- 
gramas en Europa usando el nombre 
de Imagine. 
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rimera 
plana 
LENGUAJE c. 
CORTESIA 
DE HISOFT 


tf,b"OOO ooHdo paco la< pcogco- 
madores. Ya existe un compilador para ellen- 
guaje C desarrollado por Hisoft, creadora, en- 
tre otras cosas, del Hisoft Pascal y el Hisoft 
DEVP AC (ensambladorldesensamblador). 
El lenguaje C es unánimemente reconocido 
como el rey para la programación y desarro- 
llo de sistemas operativos; se caracteriza por 
su extrema concisión (frente a la verbosidad 
de lenguajes como Pascal o Ada) y rapidez 
(para juegos), permitiendo al programador ex- 
perimentado hacer prácticamente cualquier 
cosa que se le ocurra, tareas que hasta hace 
muy poco tiempo sólo podían abordarse me- 
diante el lenguaje ensamblador (código mó- 
quina). 
El C cuenta además con la enorme ventaja 
de ser un idioma específica mente creado pa- 
ra ser portable de un ordenador a otro casi 
sin cambios. 
Al parecer, el compilador es una implemen- 
tación plena del C standard, mejorado con he- 
rramientas tales como un depurador interac- 
tivo para el principiante. 
Hisoft también entrega una guía al C de 150 
póginas con el programa, disponible en cinta 
y disco. 


¿DISCO LASIR PARA AMSTRAD? 


A mstrad no <e ha peon"n- 
ciado oficialmente sobre la posibili- 
dad de dotar a sus máquinas con un 
sistema de almacenamiento masivo 
de datos basado en la tecnología lá- 
ser, comúnmente denominada 
«Compact Disc». 
En una reciente feria informática y 
electrónica, Philips presentó un siste- 
ma de este tipo, y William Poel se sa- 
be que lo ha visto y lo ha encontra- 
do «muy interesante), suponemos 


que por su precio, 450 libras (ciento 
y poco mil ptas.). 
Philips ha «confesado» que, efec- 
tivamente, ha tenido conversaciones 
con Amstrad respecto a este tema. 
Se desconoce todavía el alcance 
de las negociaciones. Por lo visto po- 
ca gente experta en medios de alma- 
cenamiento masivos, duda de que 
los discos láser, capaces de atesorar 
Miles de megabytes en un «cartu- 
cho» de 12 cm, sustituirán a todas las 
demás alternativas en un plazo en- 
tre 10 y 15 años. 
No estaría mal tener uno pronto 
para nuestro Amstrad, ¿verdad? 


MIOOH088Y AMSTRAD 5 



jDENAS 


En esta ocasión vamos a ver 
las variables literales o 
cadenas y examinaremos 
algunos comandos 8asic para 
crearlas y manejar/as. 


R ,co,dacó qoo 1" codeo" Iit,,,I,, 
son las variables cuyo nOlllbre termina con el 
signo del dólar, S. Estón compuestas por gru- 
pos de letras, números, signos de puntuación 
y espacios, todo ello englobado en un mismo 
nombre. 
Trabajemos con ejemplos. Podemos alma- 
cenar la palabra GATOS en la variable lite- 
ral «coso$» usando la siguiente instrucción 
de asignación: 
lET cosaS = «GATOS» 
y después: 
PRINT cosaS 
resultará que la palabra: 
. GATOS 
aparece en pantalla. 


Problema de sintaxis 
Por supuesto que no es necesario la pala- 
bra clave lET, pero sí necesitamos los comi- 
llas. Son los delimitadores que seña/a n el co- 
mienzo y el final de la cadena. Probemos a 
meter: 


cosaS = GATOS 
y veamos que posa. 
Podemos tener números formando parte de 
la cadena como: 
cifraS =« 1234» 
PRINT cifraS 


y 


númeroS = «0567» 
PRINT númeroS 
lo demuestran. De cualquier forma, tengamos 
en cuenta que son variables literales y, por tan- 
to, no podemos hacer cálculos aritméticos con 
ellas. Probemos: 
PRINT númeroS * cifraS 


o 


PRINT cifraS - númeroS 
y veremos lo que decimos. El mensaie de error 
de incongruencia de tipos (type mismatch) 
quiere decirnos justamente esto: hemos utili- 
zado erróneamente el tipo de variables. 


Sumar cadenas 
Sabiendo que no podemos hacer cálculos 
matemóticos con las variables literales, sólo 
hay un modo de manejarlos que visto, pare- 
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ce como una forma extraña de suma. Aquí es 
donde unimos o «concatenamos» dos cadenas. 
Para mostrar lo que estamos diciendo, vamos 
a establecer dos variables como: 
primeroS = «primero» 
segundoS = «segundo» 
y después escribimos: 
unidos$ = primeroS + segundoS 
El signo más es como el de la suma, pero 
¿cómo podemos sumar los valores primero y 
segundo? lo que ocurre ahora es que los dos 
aparecen juntos, como podemos ver si hace- 
mos: 


PRINT unidos$ 
y obtendremos: 
primerosegundo 
como resultado. los dos variables literales han 
sido enlazadas una tras otra para formar una 
tercera cadena. 
Ensayemos: 
PRINT cifra$+númeroS 
y observemos el resultado. la respuesta a es- 
ta «suma» es completamente diferente a la so- 
lución de: 
PRINT 1234+0567 
la primera contestación del ordenador es 
una cadena concatenada, la segunda es un 
número. Es precisamente la misma diferencia 
que existe entre: 
PRINT2+2 


y 


PRINT «2»+«2» 
Hagamos balance, en cuanto a lo que con- 
cierne a las variables literales, el signo mós 
quiere decir «unin), no «suman>. 
la concatenación de cadenas la encontrá- 
bamos ya en el Programa IX de nuestro últi- 
mo artículo que ahora repetimos como Pro- 
grama /. 
Miremos detenidamente la línea 70. Coge 
la variable literal «osterisco$» y le suma 
-o meior dicho, concatena- un asterisco. la 
cadena resultante se almacena otra vez en 
«asterisco$», que ahora es un caracler más 
largo. 
Como el bucle FOR.., NEXT «gira»,la lon- 
gitud de «osterisco$» crece en cada línea, re- 
sultando un triángulo de asteriscos. 
Volvamos atrós, a nuestra cadena original. 
Si hemos reinicializado nuestro micro, volve- 
mos a crear la variable con: 
cosaS = «GATOS» 
Observemos que cuando hemos hecho: 
PRINT cosaS 
hemos obtenido como resultado GATOS y no 
«GATOS» como cabría esperar. los comillas 
han desaparecido. la finalidad de las comi- 
llas es marcar el comienzo y el fin de la cade- 
na, pero no son parte integrante de ella, 
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¿Qué tenemos que hacer si 9uere- 
mos que aparezcan? ¿PodrJamos 
conseguirlo colocando todo ello en- 
tre comillas? Probando lo veremos. A me- 
nos que su Amstrad sea muy diferente al 
nuestro, creemos que descubrirá que: 
cosaS = ««GATOS»» 
da como resultado un mensaje de error sin- 
táctico. Sin embargo, no nos desesperemos, 
hay un modo de conseguirlo utilizando la fun- 
ción Basic CH R$. Pero antes de intentarlo va- 
mos a aprender algo acerca del llamado có- 
digo Ascii. 


Código ASCII Y 
CH
$ 
Como probablemente ya sabe, su Ams- 
trad trabaja con números. Todo lo que ha- 
ce, desde destacar un enojado mensaje de 
error hasta un ataque alienígena a la Tierra 
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en un juego de arcade, lo hace con números. 
Incluso cuando tratamos con palabras como 
en: 
PRINT «GATOS)) 
lo hace con números. Cada caracter posee un 
código numérico. 
El código para A es 65, mientras que el sig- 
no de interrogación se representa con el nú- 
mero 63. Todas las letras, número 0-9 y sig- 
nos de puntuación tienen su código númerico 
li
,tado en una tabla conocida como código As- 
Cii. 
El código Ascii viene respaldado por el Ame- 
rican Code for Information Interchange, de ahí 
su nombre. La tabla I nos muestra un breve 
sumario de los códigos más frecuentes. 
El juego completo de códigos está publica- 
do en el Apéndice 111 del Manual del Usuario. 
No puede decirse que tenga una lectura fá- 
cil, pero hojeándolo un poco nos dará una 
idea de cómo se diseñan. 


Así que, recapitulando, cada uno de los ca- 
racteres que vemos en la pantalla del Ams- 
trad está representado por un número. Las 
letras mayúsculas tienen los códigos Ascii en- 
tre 65 y 90. Podemos convertir estos códigos 
en caracteres utilizando la función del Basic 
CHR$ anteriormente mencionada. Probemos 
a escribir: 
PRINT CH R$ (65) 
y tendremos en pantalla una A. Y no nos co- 
ge de sorpresa encontrar que: 
PRINT CHR$ (66) 
produzca una B o que: 
PRINT CHR$ (67) 
haga una C. En cuanto que entendamos có- 
mo la función CHR$ convierte el código Ascii 
en una letra del alfabeto podemos seguir al- 
go parecido a una obra maestra como es el 
Programa 11. 
Esperamos que se lleve un buen susto por 
el indiscriminado uso de PRINTS en este últi. 
mo programa. ¡Tranquilo! No tenemos que uti- 
lizar un PRINT separado para cada CHR$, po- 
demos encadenarlos todos juntos como en: 
PRINT CHR$(71 )CHR$(65)CHR$(84)CHR$ 
(79)CHR$(83) 
Ahora vemos de dónde viene el término ca- 
dena.., 
Hasta aquí, sólo hemos utilizado el código 
Ascii en un rango de 65 a 90. El Programa 11I 
utiliza un bucle FOR... NEXT para mostrar los 
caracteres cuyos códigos van del 32 01126. 
Aquí no tenemos sólo las letras mayúsculas, 
hay signos de puntuación, letras minúsculas, 
números y hasta un espacio 32. Todas estas 
cosas pueden formar parte de una cadena. 
Así que utilizando CHR$ y el código Ascii 
oportuno podemos crear cualquier cadena. En 
efecto, el Amstrad tiene un juego completo 
de caracteres gráficos disponible utilizando el 
código Ascii. Podemos verlo si cambíamos la 
cifra del final de la línea 20 a 255. 
De todas formas, por el momento, veamos 
las letras mayúsculas que realiza el Programa 
IV. 
Cada vez que «gira)) el bucle FOR... 
NEXT. «Mayúsculas)) incrementa su valor, 
oscilando entre 65 y 90, El resultado es que 
el CHR$ de la línea 30 escribe el alfabeto com- 
pleto y ordenado usando letras mayúsculas. 


Ahora en mayúsculas 


El Programa V hace exactamente lo mismo 
pero escrito de una forma más técnica. 
Aquí después que «desplazamiento)) ha 
tomado el valor 64 en la línea 20, la variable 
de control del bucle «letra» se extiende del 1 
al 26. La línea 40 se asegura del valor actual 
de «letra)) añadiéndole el valor de «des- 
plazamiento» para producir un código As- 
cii CHR$ para que lo procese. 
Este código oscilará entre 65, cuando «des- 
plazamiento» es 1, hasta 90 cuando «des- 
plazamiento» es 26 y así aparecerán las 



rillleros 
pasOS 


letras mayúsculas. Pero si es el mismo resulta- 
do que en el Programa 111, ¿por qué mo- 
lestarnos en teclearlo otra vez? 
La respuesta es que nos hemos encontrado 
con un bucle que va desde 1 a 26 para pro- 
ducir el alfabeto de una forma más compren- 
sible que uno que va desde 65 a 90 para con- 
seguir el mismo fin. También, vemos qué fácil 
es hacer letras minúsculas usando el método 
de «desplazamiento)), 
Observemos como el Programita VI difiere 
del Programa V. Aquí, teniendo «desplaza. 
miento») un valor de 96 asegura que los va- 
lores con los que trabaja CHR$ varíen en el 
camino entre 97 y 122. 
Estos valores son los códigos Ascii de las le- 
tras minúsculas, por lo tanto lo que sale en 
pantalla es distinto. ¿Puede modificar el 
programa para que escriba los nú. 
meros de O a 9? El rango de los códigos 
vade48a57. 


La función ASC... 
Para libramos de. la nece
dad de tener que 
mirar en la labia el código Ascii de cada ca- 
racter, el Basic del Amstrad tiene una fun- 
ción muy útil, el oportunamente llamado ASe, 
que coge un caracter y devuelve su código As- 
cii. De este modo: 
PRINT ASC (<<A¡¡) 
devuelve 65 mientras: 
PRINT ASC (<<a») 
nos da 97. Podemos utilizar variables litera- 
les dentro de los paréntesis como: 
interior$ = «x» 
PRINT ASC (interior$) 
nos muestra. También ASC distingue claramen- 
te entre números y cadenas como lo demues- 
tran los distintos resultados de: 
PRINT ASC (7) 


y 


PRINT ASC (<<7») 
Pensemos que ASC trabaja sólo con la pri- 
mera letra de la cadena. Es perfectamente vá- 
lido hacer algo parecido a: 
PRINT ASC (<<GATO») 
y sólo conseguiremos que nos devuelva el có- 
digo de la primera letra. En otras palabras, 
PRINT ASC (<<XYX») 
da el mismo resultado que: 
PRINT ASC (
{X») 
la Y y la Z se olvidan. 
Sin embargo, ASC es bastante más que úni- 
camente un medio rápido de encontrar un có- 
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digo Ascii. Podemos utilizarlo para depurar 
datos -detectando errores en los usua- 
rios- como se aprecia en el Programa VII. 
Como habrá descubierto si lo ha ejecutado 
-y si no /0 ha hecho, debe hacer/o- el pro- 
grama sólo acepta las letras mayúsculas. La 
línea 40 revisa el valor Ascii de ((entrada$». 
Sólo los valores comprendidos entre la serie 
65-90 corresponden al alfabeto en mayúscu- 
las, así que si ASC (entrada$) está por deba- 
jo o por encima de estos valores, se mete un 
dato erróneo. 
Esto es otra manera de detectar algún error 
o a quien intente entrar en su programa. 


... y el control 
de errores 
El GOTO envía el programa de vuelta a la 
línea 20 para intentarlo otra vez. Solamente 
cuando el código Ascii de «entrada$» está den- 
tro del rango de las mayúsculas, el programa 
se ejecuta hasta conseguir el mensaje final. 
No obstante, ¿no cree que el Progra- 
ma VII podría ser un poco más den- 
so? 
Después de todo, alguien podría introdu- 
cir una p cuando se necesita una P. Lógica- 
mente el micra señalaría su error -posible- 
mente se volvería loco de por vida intentan- 


,;. 


¡ 


do encontrarle- ¿Por qué no tiene que 
hacerlo con el Amstrad? 
Lo único que hace es un desplazamiento de 
32 para admitir los 32 caracteres entre las le- 
tras mayúsculas y sus compañeras las minús- 
culas. El Programa VIII es la demostración de 
cómo se hace. 
Aquí el valor de Ascii de ((entrada$» es- 
tá metido en ((ascii». La línea 60 comprue- 
ba que ((entrada$» es cualquier letra ma- 
yúscula o minúscula. Si no pasa el filtrado el 
usuario lo intentará de nuevo. 
En el momento en que el programa llega a 
la línea 80, ((entrada$» debe ser uno u 
otro. Aquí se comprueba, y si son minúsculas 
-un código mayor que 90- se resta 32 para 
pasarlo al grupo de las mayúsculas. En efec- 
to. ASC permite a nuestro Amstrad corre- 
gir errores humanos. 
Sin embargo, esta forma es solamente un 
modo de solventar el problema y en algunos 
Basic la única que tiene. La Locomotive Basic 
tiene dos funciones UPPER$ y LOWER$ que 
hacen el trabajo bastante más fácil. 


Trabaiando con 
funciones Basic 
Cuando aplicamos U PPER$ a una cadena, 
cambia todas las letras minúsculas a mayús- 


Cód. Carae. Cód. Carae. Cód. Carae. Cód. Carae. Cód. Carac. Cód. Carae. 
33 ! 49 1 65 A 81 Q 97 a 113 q 
34 /1 50 2 66 B 82 R 98 b 114 
r 
35 
 51 3 67 e 83 S 99 c 115 s 
36 52 4 68 D 84 T 100 d 116 t 
37 % 53 5 69 E 95 U 101 e 117 u 
38 & 54 6 70 F 86 V 102 f 118 v 
39 , 55 7 71 G 87 W 103 119 

 w 
40 i 56 8 72 H 88 X 104 120 x 
41 57 9 73 I 89 Y 105 i 121 y 
42 * 58 : 74 J 90 Z 106 
 122 z 
43 + 59 ; 75 K 91 J 107 123 
 
44 , 60 < 76 l 92 108 I 124 
45 - 61 O 77 M 93 ] 109 m 125 00 
46 62 < 78 N 94 110 n 126 /1 
47 / 63 ? 79 O 95 111 o 
48 O 64 0 80 P 96 % 112 p 


Tabla 1: códigos ASe 11 
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culos. LOWER$, como puede suponer, hace 
exactamente lo contrario. Los números y sig- 
nos de puntuación quedan sin cambiar. Al fin 
y al cabo, ¿cuál es la mayúscula de 2? 
Vamos a probar con ejemplos semejantes a: 
PRINT UPPER$ (ilhlikl») 
PRINT LOWER$ (1IABCl2def») 
PRINT UPPER$ (1Ipqr$&lKl») 
y conseguiremos comprenderlo pronto. 
Podemos utilizar cadenas de variables lite- 
rales intermedias entre dos paréntesis. T eclee- 
mas: 


mixtoS = «aaCCff%%990N» 
PRINT UPPER$ (mixto$) 
si tenemos alguna duda. El Programa IX nos 
enseña que UPPER$ puede ser utilizado en una 
versión más eficiente del Programa VII. 
Como podemos ver, las líneas 70 a 100 del 
programa antiguo se han reemplazado por 
una sola utilizando UPPER$. ¿Podemos al- 
terar la línea 70 para que sólo apa- 
rezcan las letras minúsculas? 
Antes de abandonar el código Ascii quere- 
mos tratar brevemente de los valores de có- 
digo comprendidos entre O y 31. Son muy di- 
ferentes de los otros que hemos utilizado has- 
ta aquí. 


Códigos de control 
Todos los códigos comprendidos entre 32 y 
126 escriben un caracter cuando se usan con 
CHR$O. los códigos desde el O al 31 no ex- 
ponen un juego de caracteres, sino que influ- 
yen en el micra. Son los que se conocen como 
códigos de control y lo que se hace con ellos 
es dirigir el micra. Si probamos: 
PRINT CHR$ (12) 
vemos, o mejor dicho, no vemos que ocurra 
nada. Así que tendremos que ver, o no, cuál 
puede ser la causa. 12 es el código de control 
que borra el texto de la pantalla. En efecto, 
es lo mismo que CLS. 
Intentemos: 
PRINT CHR$ (7) 
y escuchemos el dulce y tradicional sonido de 
una campana. 
El capítulo IX del Manual del Usuario, con- 
tiene todo sobre los códigos de control y sus 
usos. Comprúebelos todos e intente explicar- 
se lo que ocurre. 
Nos llaman la atención en particular los có- 
digos 8, 9, 10 y 11 que mueven el cursar del 
texto retrocediendo, avanzando, bajando y 
subiendo un ((caracter espacio» respec- 
tivamente. Podemos divertirnos mucho con 
ello. Intentemos explicar que pasa con: 
PRI NT ((GA TOS»CH R$(8)CH R$(32) 
Podemos incorporarlo fácilmente dentro de 
variables literales sumando -o mejor dicho, 
concatenando- a una cadena normal. Vea- 
mos lo que queremos decir introduciendo: 
blanco$ = «GATOS» + CH R$(8) + CH R$(8) + 
+ CHR$(8)CHR$(8) + CHR$(32) + CHR$(32) + 
+ CHR$(32) + CHR$(32) + CHR$(32) 
T ras esto, la cadena de variables cosa$(32) 
contiene cinco caracteres, cinco controles de 



código y cinco espacios. Ahora cuando haga- 
mos: 
PRINT blanco$ 
no veremos nada. los cinco espacios blancos 
se sobreescriben en GATOS. 
los códigos de control son parecidos a to- 
do lo demás en el Amstrad, se empieza a 
comprender con la práctica (ya sabe lo que 
queremos decir: debe trabajar, trabajar, tra- 
bajar...). 
Todo lo que necesitamos por ahora es te- 
ner muy clara la idea de que los números o 
los códigos Ascii pueden representar caracte- 
res. 
Antes de dejar CHR$ por completo. ¿Re- 
cuerda nuestro problema con los 
«GATOS))? El código Ascii que tenemos a 
mano. Tecleemos: 
cosa$ = CH R$(34) + «GATOS» + CH R$(34) 
y si hacemos después: 
PRINT cosa$ 
obtendremos el tan buscado: 
«GATOS)) 
No debe sorprendernos ya que el código 


Ascii para las comillas es 34. Así que, un inte- 
ligente uso de CHR$ nos permite escribir ca- 
racteres de una forma que resulta imposible 
desde el teclado. 
De la misma manera: 
PRINT CHR$(224) 
PRINT CHR$(225) 
nos dan los símbolos que no se encuentran en 
ninguna tecla. 


y 


La función LEN 
Y, finalmente, ¿qué longitud tiene una par- 
te de la cadena? Parece una pregunta tonta, 
pero no lo es. Como descubriremos en nues- 
tro próximo encuentro, podemos separar 
nuestras cadenas en partes -es lo que cono- 
cemos como cadena cortada- y es importante 
conocer su longitud. Porque para esto el Ba- 
sic tiene la función lEN. 
Su uso no es difícil. Vamos a suponer que, 
por cualquier razón, necesitamos conocer la 
longitud de la cadena ABC utilizando nuestro 
Amstrad. 


PR · GRAMAS 


lO REM PROGRAMA I 
20 CLS 
30 asteri
co$ "*" 
40 FOR fila=1 TO lO 
50 LOCATE II-f.Ja.f.la 
6(1 F'RJNT aster15co$ 
70 
slerl
co$ aster15co$+".'1 
80 NEXT fila 


10 RFM PROGRAMA II 
2(1 F'RINT CHR$(71); 

O F'RINT CHR$(65); 
40 PRINT CHR$(84); 
50 PRINT CHR$(79); 
60 F'RINT CHR$ (83) 


1 (1 REM F'ROGRAMA 1 I 1 
20 FOR asc:ii=32 TO 126 
30 F'RINT CHRS(ascll);" 11. 
40 NEXT asc.. 


lO REM PROGRAMA IV 
20 FOR mayuscL\l as 65 10 9(1 
30 F'RINT CHR$(maYL\sculas);" II
 
40 NEXT mayusculas 


lO REM PROGRAMA V 
20 desplazamiento 64 
30 FOR letra I TO 
6 
40 PRINT CHR$(despla
amiento+letra) 


+" 'o: 


50 NEXT letra 


lO REM PROGRAMA VI 
20 despla"amiento=96 
30 FOR letra-I TO 26 
40 PRINT CHR$(despla"am.ento+letra) 


+11 01. 


50 NEXT letr" 


10 REM PROGRAMA VII 
20 PRINT "Teclee una let
a mayuscLl] 


a ": 


30 INPUT entrada$ 
40 IF ASC(entrada$) :65 OR ASC(entra 
da$) >90 THEN CLS: F'RINT "He dicho u 
n
 letra mayuscula":PRINT:GOTO 20 
50 PRINT"Sien hecho'" 


10 REM PROGRAMA VIII 
2(1 PRINT "Teclee una letr-a 11: 
30 INPUT entr-ada$ 
4(1 ascii ASC(entrada$) 
50 REM ComprL\eba si ] a entrada e'5ti\ 
dentro del rango de las letras 
60 IF ascll<65 OR aSCll.
 12
 OR (ase: 
i i >90 ANO ase- 1 1 <97) GaTO 2(1 
70 REM Si es minLlsc:ula, la transfor 
ma en mayuse:ula 
80 IF aSCll >90 THEN asci i -ase:i i -3:
 
90 entrada$ CHR$(a5cii) 
100 PRINT entrada$ 


1 (> REM F'ROGRAMA 1 X 

O PRINT "Teclee una letra 1': 
30 INPUT entrada$ 
40 ascii=ASC(entrada$) 
5Ct RFM ComprLleb
 51 1 a pntrada esti\ 
dentro del rango de la'5 letr-as 
60 IF 
se:ii 
65 OR ascii '1
2 OR (ase 
11 >91) ANO aSCll '97} GOTa 
o 
70 PRINT UPPER'$(pntrada$) 


In REM PROGRAMA X 
20 entradM$="" 

O WHILE LEN(entradaS) :>4 
40 PRINT I'Teclee una p
l
br
 rie Clla 
tro letra'5 n: 
50 INPUT entrada$ 
60 WENO 
70 PRINT entrada$ 



rimeros 
pasos 


Todo lo que tenemos que hacer 


es teclear: 


PRINT lEN (<<ABC») 
y nos devuelve 3, de modo que ABC tiene tres 
caracteres de longitud. Esto apenas nos llama 
lo atención, ¿no? Seamos más prácticos, que- 
remos conocer la longitud de una variable li- 
teral que ha podido estar cambiando duran- 
te todo el tiempo que ha durado la ejecución 
de un programa. Establecemos una cadena 
con: 


suelección$ = «cualquiera)) 


y 


PRINT lEN (suelección$) 
nos dirá el número de caracteres que contie- 
ne. 
Como dijimos, el uso de lEN es bastante 
sencillo pero hay un par de casos especiales 
de los que tenemos que ocuparnos. la longi- 
tud de un espacio es 1, no O como se podría 
pensar. Si no le convencemos, teclee: 
PRINT lEN (<< ») 
y se convenceró por sí mismo. Recuerde, los 
espacios cuentan como un carácter, así que: 
vacío$ = ccHola mamá)) . 
PRINT lEN (vacío$) 
da como respuesta 9, no 8. 
Otro caso especial es el de la cadena nula, 
la que no contiene nada. Definamos una con: 
nulo$ = «» 
y descubramos su longitud con: 
PRINT lEN (nulo$) 
Tiene sentido que la respuesta sea O. Des- 
pués de todo no contiene ningún caracter. 
Aunque nos puede parecer un poco tonto 
hacer una cadena que no contenga nada, nos 
viene muy bien como la condición de control 
de una bucle WHllE... WEND cuando corta- 
mos cadenas. De todo esto ya hablaremos. le 
dejamos con el Programa X. 
Esto es precisamente un «depuradon> 
usando lEN para asegurar que 10 palabra te- 
cleada tiene una longitud correcta. 
la línea 20 coloca en «entrada$)) la ca- 
dena nula. No es rigurosamente necesario, ya 
que el Amstrad asume que una variable li- 
teral tiene el valor de una cadena nula mien- 
tras no se le diga lo contrario. De todas for- 
mas, es bueno en la práctica programar utili- 
zando este tipo de asignaciones, haciendo que 
el listado sea más claro y, sobre todo, más fácil 
para su depuración. 
Hasta la próxima semana, le dejamos que 
comprenda cómo trabaja el resto del progra- 
ma y que anote sus problemas. 
El programa funciona con 1234, pero esto 
no es una palabra, ¿puede hacer algo 
para resolverlo? 
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¡NUEVO! 
SIEMPRE LOS PRIMEROS 
EN TENER LO ULTIMO 



 


DRAGONTORC 
Cerca de 200 pantallas con miles de 
objetos diferentes y más de cien 
personajes con animación en tres 
dimensiones, hacen Que de este juego la 
revista inglesa Crash Micra haya llegado a 
decir ..Dragontorc es lo mejor Que hemos 
visto en juegos de acción y aventura-o 
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RAID OVER MOSCOW 
Defiende a.USA y Canadá del ataque 
nuclear Que ha lanzado Rusia contra 
ellos. Con tu escuadrilla habrás de hacer 
un viaje lleno de peligros hasta llegar al 
mismisimo Kremlin y destruir las bases de 
lanzamiento soviéticas. Gráficos y acción 
sensacionales. 
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SOUTHERN BELLE 
Siente la emoción de conducir una 
locomotora de vapor, através de un 
maravilloso recorrido desde Londres a 
Brigthon, manejando la caldera, el silbato, 
atravesando túneles, etc. Estamos ante 
uno de los juegos más brillantes y 
originales aparecidos para ordenador. 


P.V.P.: 2.300 ptas. (Amstrad). P.V.P.: 2.300 ptas. (Amstrad). 
Precio Socios C. de Soft: 2.070 ptas. Precio Socios C. de Soft: 2.070 ptas. 
P.V.P.: 2.100 ptas. (Spectrum). P.V.P.: 2.100 ptas. (Spectrum). 
') Precio Socios C. de Soft: 1.890 ptas. Precio Socios C. de Soft: 1.890 pta '. 
...V LOS TRES PROGRAMAS POR SOLO 5.500 PTAS. (AMSTRAD) 
4.950 PTAS. (SPECTRUM) 
J / ' ,., ,I./}J 'y; J 'J 
 - J I ' ('.1 Además de poder adquirir tus pro- 
gramas al m
jor precio, recibirás información de forma periódica y gratuita, del mejor software que apa- 
r. zca en el mercado. 
. 


P.V.P.: 2.300 ptas. (Amstrad). 
Precio Socios C. de Soft: 2.070 ptas. 
P.V.P.: 1.900 ptas. (Spectrum), 
Precio 'ocios C. de Soft: 1.750 ptas. 
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 Asidefácil:envía- 
. 
. nos por correo tu nombre, dirección y.modelo de ordenador, o bien, pide por teléfono o por correo tu pri- . 
m.er p
ogra.ma. lY entrará.s a formar parte del CIRCULO DE 80FT de forma inmediata! 


. 


· · í 


---------------------- 


. . . 
---- 


o si, quiero ser SOCIO desde hoy mismo del CIRCULO DE SOFT y recibir periódicamente información de novedades de software. así como beneflciarme desde hoy mismo de los pre- 
CIOS reducidos reservados a los SOCIOS y de SllS Ofenas Especiales. El ser SOCIO no roo obliga a COfllJra alguna. 
Si prefieres formalizar lu compra por teléfono puedes hacerlo llamando al (91) 733 25 OO. iiNO SE COBRAN lOS GASTOS DE ENVIO POR CORRED!! 
TITULO P.V.P. ORDENADOR 


o COnlrarreembolso 
Nombre 
Domicilio 
localidad 


o Giro Poslal 


o T ar¡ela VISA n' 


o Talón adjunlo a Mlcroamlgo, S A. 
Apellidos 


Fecha caducidad 


Edad 


Teléfono 


c.P. 


Provincia 



PRESENTACION DE LOS 
NUEVOS PRODUCTOS AMSTRAD 


Indescomp presentó en el Meliá Castillo el CPC6128, el PCW8256 y el Spectravídeo 
X'PRESS 
ease exprés) dentro de su nueva 'lama de productos. La estrella, sin duda, el 
PCW, por su relacion prestaciones/precío. 
Según declaraciones del presidente de Indescomp, Amstrad es número 1 en Europa. 
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I día 16 de octubre, el 
mundo del byte se vistió de largo pa- 
ra tomar parte en uno de los rituales 
más antiguos y de más solera den- 
tro de los círculos comerciales, infor- 
máticos o no: la presentación por 
una compañía de sus nuevos produc- 
tos. 
El escenario para la obra fue es- 
cogido respetando al. máximo las 
más puras tradiciones que definen 
(¿encasillan?) este tipo de magnos 
eventos: el hotel Meliá Castillo. 
Tras acertar, en el primer intento, 
con la sala donde se celebraba una 
convención de agricultura y ganade- 
ría o algo parecido, y escapar rápi- 
damente de allí (el cocktail aún no es- 
taba servido), dimos con el salón Ca- 
latrava donde Indescomp presenta- 
ba su nueva gama de productos. 
La concurrencia comenzaba a ha- 
cer acto de presencia en la sala, que 
se encontraba medio vacía. 
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Una revista con 
marcha para los 
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saber TODO 
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AMSTRAD CPC 6128 


En la puerta, una mesa con dos 
atractivas señoritas, claro exponen- 
te del tipo standard «azafata de con- 
vención», intentaban infructuosa- 
mente hacer frente a la riada de vi- 
sitantes a los cuales debían tachar de 
una lista, saludarles sonrientes y ofre- 
cerles un voluminoso paquete de: 
a) Publicidad 
b) Notas de prensa 
e) y el inevitable póster de rega- 
lo (enorme), 
cuyo transporte a lo largo de la pre- 
sentación constituyó una cruz consi- 
derable, soportada en aras de la 
precisión informativa y de la previ- 
sora semiausencia de papeleras. 
Pasado el protocolo de admisión, 
cada uno, tan rápidamente como le 
fue posible, se dirigió a las hileras de 
mesas donde se encontraban los 
nuevos ordenadores, haciendo gala 
de sus posibilidades y ejecutando di- 
ferentes programas de gestión o en- 
tretenimiento, según la filosofía de 
cada uno. 


El disco integrado 
Allí estaban el nuevo modelo de 
Spectravídeo, el X'Press, un MSX 
portable dotado con una unidad de 
disco integrada de 3,5 pulgadas y 
capaz de funcionar bajo el sistema 
operativo CP/M 2.2, además de los 
sistemas operativos propios de los or- 
denadores MSX. 
12 MICKOHOBBr AMSTRAD 


Software, software 
También ocupaba un sitio prefe- 
rente el hermano mayor de la serie 
de los CPC, el Amstrad CPC6128, el 
cual llamó la atención de práctica- 
mente todos los que estaba mas allí 
debido a los programas de demos- 
tración que ofrecía: entre ellos yo ca- 
lificaría de «cum laude» a una serie 
de dibujos, tentado estoy de decir 
cuadros, compuestos con un sorpren- 
dente acierto en la elección de for- 
mas y colores. 
Fuera cual fuera el instrumento 
empleado para realizarlos, un pro- 
grama diseñador de pantallas o un 
digitalizador de imagen o lo que sea, 
las posibilidades gráficas de este or- 
denador y la imaginación del artista 
nos dejaron asombrados. Increíble. 
Otro programa que tuvimos oca- 
sión de admirar era uno de ajedrez, 
el Cyrus 11, creo, inspirado el progra- 
ma de ajedrez de Psion para el Sin- 
clair QL. La presentación del table- 
ro es tridimensional, y el movimien- 
to de las piezas se realiza con una 
suavidad encantadora. La ilusión de 
realidad está bastante lograda. 
Respecto a los programas de ges- 
tión, pudimos echarle una ojeada a 
una contabilidad, bastante atractiva 
a juzgar por el menú principal, y un 
curioso programa de planificación 
de proyectos, que usaba como mé- 
todo de análisis la vía del camino crí- 
tico. 
La estrella de la presentación, sin 


duda, era el PCW8256, analizado 
por AMSTRAD SEMANAL en el núme- 
ro anterior. Había unos cuantos eje- 
cutando el procesador de textos Lo- 
coscript, en versión castellana, y 
mostrando en pantalla e impresora 
todas las posibilidades de este pro- 
grama. 
Otras máquinas del mismo tipo 
mostraban el CP/M Plus, también en 
castellano, y una hoja de cálculo. 
El nuevo Spectravídeo tal vez re- 
sultó ,un poco oscurecido por el 
PCW, pero es una máquina con un 
diseño de lo más atractivo que he- 
mos visto nunca. Se le podía ver eje- 
cutando programas de demostra- 
ción, a base de sprites y gráficos, y 
algún que otro de gestión para de- 
mostrar la ventaja del disco. 
A estas alturas, la sala estaba ates- 
tada de gente y del murmullo de las 
conversaciones de diferentes grupos. 
Empezaron a aparecer algunos va- 
sos en las manos, y entre sorbo y sor- 
bo podían escucharse los comenta- 
rios típicos de estas ocasiones, sua- 
vemente. 
Justo cuando el ambiente estaba 
tomando la forma de un bautizo o al- 
go así, una repentina urgencia de to- 
mar asiento en las sillas dispuestas al 
efecto atravesó la sala como un lati- 
gazo, y arrullados por el rozar de 
zapatos contra la moqueta nos dis- 
pusimos a escuchar oficialmente lo 
que casi todos los presentes sabía- 
mos ya: las características de los nue- 
vos ordenadores. 



Oficialmente 
Al estrado, porque había un estra- 
do, subió una delegación de Indes- 
comp encabezada por su presiden- 
te, José Luis Domínguez. 
Tras pedir silencio y saludar a los 
presentes, habló de las nuevas má- 
quinas por este orden: Spectravídeo, 
CPC6128 y PCW8256. Nuestros lec- 
tores ya conocen de que van los nue- 
vos Amstrad, por lo que les ahorra- 
remos repetir los detalles. 
Domínguez destacó del Spectraví- 
deo su doble uso lúdico y profesio- 
nal, gracias a la unidad de disco in- 
corporada y al CP/M. También indi- 
có que el precio de la máquina, 
99.000 pesetas batía a sus más direc- 
tos competidores en toda la línea, lo 
cual efectivamente es cierto (por 
ahora) . 
Quedó por aclarar la espinosa 
cuestión de la disponibilidad del soft- 
ware¡ como todo el mundo sabe, se 
ha repetido hasta la saciedad, hay 
miles de programas que corren ba- 
jo CP/M: bien. Pero, ¿cuántos exis- 
ten en formato de 3,5 pulgadas? 
¿Cuántos existirán en un plazo razo- 
nable? 
Esta misma pregunta podría apli- 
carse a los dos Amstrad. Pero Do- 
mínguez comentó que Indescomp es- 
tá haciendo un esfuerzo gigantesco 
para dotar a sus ordenadores de 
software en disco y que tiene dispo- 
nibles ya más de 100 programas. En 
cuanto al PCW8256 es razonable 
darle tiempo al tiempo, porque prác- 
ticamente acaba de nacer. No obs- 
tante, el programa Locoscript cubre 
las necesidades básicas para las que 
fue diseñado el equipo. 


-:- 


AMSTRAD PCM 8256 


r 


'" 
 J 


El presidente de Indescomp añadió 
que Amstrad es un número 1 en ven- 
tas en casi la totalidad de Europa: Es- 
paña, Francia, Alemania e Inglate- 
rra. Bastante quiso decir. 
La defunción del CPC664 fue con- 
firmada por Indescomp en una nota 
de prensa que se nos facilitó al en- 
trar en el «salón de actos», y duran- 
te la charla. 
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Domínguez aseguró que las rumo- 
readas ampliaciones de memoria pa- 
ra el 664 ya existen y están prácti- 
camente terminadas (hasta 
256 K), pero no comentó la fecha de 
comercialización de este producto en 
n
estro país ni el precio estimado del 
mismo. 
Yeso fue todo. Oficialmente, han 
nacido tres nuevos ordenadores. 
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Si quieres un ordenador de -una pieza. piensa 

 en el A MSTRAO CPC 164. Tendrás un 
ordenador de una vez por todas. Gracias a sus 
64K RAM Y J2K ROM ya sus casi Ilimitadas 
posibilidades de crecimiento. tienes garantizado 
que el ordenador CPC 464 no se te queda! á 
pequeño. 


COMPLETO 


Además, gracias a ,;U monitor (color o fósforo 
verde) de alta resolución (hasta 640 x 200 pixels 
direcClonados indiVIdualmente) y a su un/dad de 
Cdssette incorporada al teclado. podrás disfrutar 
de tu AMSTRAO de una manera independiente. 
presCindiendo del televisor y del radlocassette 
de tu casa (a veces tan soliCitados). 


¡ y QUE ME DICES DE LOS 
PROGRAMAS! 


Actualmente ya hay cientos de ellos 
disponibles en España. Sin olvidar que son vanas 
las revistas dedlcddas sólo a A MSTRAD y que el 
número de libros y penféncos del CPC 164 
crecen d a a dia, potenciando asl la creatividad de 
tu ordenador personal 
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CARACTERISTlCAS TECNICAS 


- Microprocesador Z80 (4MHz). 
- Memoria de 64K RAM y J2K ROM. 
- Gr¡j{¡cos de alta resolUCión de hasta 640 por 
200 plxels dlreccionables indiVidualmente. 
- Un/dad de cassette Incorporada en el teclado. 
- Mondar color o fósforo verde Incluido en el 
Sistema. 
- Texto en pantalla de 20.40 y 80 columnas por 
25 Ilneas. 
- LOCOMOTlVE BASIC ampliado. 
- Paleta de 27 colores y electos de -flash.. 
- Teclado profesional tipo QWER TY con 
bloque numénco y teclas para cursar 
independientes. 
- Salida Centran/es paralelo. 
- Lector de discos de J" (IBOK por cara) 
opCional (con CP/M y Dr. LOCO mcluldos 
junto a la unidad de disco). 
- Manuales en castellano. 
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Al comprar tu ordenddor CPC 464, 
AMSTRAD ESPAÑA te obseqUIa con B cassettes 
de programas y el libro -Gula de RelerenCla 
BASlC para el programador.. 
EXije la GARANTlA AMSTRAD 
ESPAÑA UNICA VALIDA PARA 
ACCEDER AL SERVICIO TECNICO 
OFICIAL. 


PRECIO: 
66.900 ptas. 
(monitor fósforo verde) 
95.900 ptas. 
(momtor color) 


1; I M/l1!i 
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ES PANA 
GARANTIA INDESCOMPill [U]g)urnmw 
Avd. del Mediterráneo. 9 - 28007 Madrid Tels. 433 45 48 - 433 48 76 - Telex 47660 FAX - 4332450 



PBITES EN 
EL AMSTRAD 


Una de las facilidades más impresionantes del 
Amstrad es la posibilidad de manejar las 
interrupciones desde Basic. Las aplicaciones de 
esta tecnica abarcan un espectro muy amplio, 
desde la simulación de multitarea hasta la 
programación de excitantes juegos tipo arcade. 
En este último caso, hay una palabra clave que, 
desde ahora comprenderemos plenamente: los 
sprites. 


n sprite (en español espíritu, 
normalmente traducido por «duen- 
de" y cosas as/} es un caraeter que 
puede moverse libremente por la 
pantalla, en general pixel a pixel, in- 
dependientemente de otros caracte- 
res y sin importar la tarea que el pro- 
grama esté haciendo 
I mismo tiem- 
po. 
Puede salir y/o entrar por cual- 
quier parte de la pantalla y pasar 
por delante o por detrás de las imá- 
genes que existan en ella, sin borrar- 
las o modificarlas en forma alguna. 
Este milagro, pues lo parece, pue- 
de conseguirse recurriendo al hard- 
ware del ordenador, al software o 
a ambos. 
Resulta bastante claro que un spri- 
te es casi casi lo ideal para un pro- 
grama de juegos, basado en la ani- 
mación. 


Desgraciadamente, Amstrad Basic 
no los incorpora, aunque, como ve- 
remos, pueden simularse convincen- 
temente algunas de sus particulari- 
dades. 


Creación de 
sprites 
¿Cúal sería el mejor méto- 
do para hacerlo? Obviamente el 
código máquina sería la solución 
idónea, porque la velocidad de este 
lenguaje permitiría mover simultá- 
neamente gran cantidad de sprites. 
Sin embargo, el lenguaje máqui- 
na tiene unos cuantos peros, como 
por ejemplo que resulta de difícil 
comprensión y es mucho más lento 
de escribir, consume más tiempo, 
que un lenguaje de alto nivel. 
Surge la pregunta: ¿se pueden si- 
mular sprites en Basic? 


ómo traba a el pro 
 rama númer. 
FUNCION 


LlNEAS 
20 
30-35 
60- 11 O 
120 
130 
140 
150 
160.170 
180.250 
290 
300-310 
320 
330 
340 


Asigna el modo de pantalla y el borde. 
Definición de los colores de tinta. 
Imprime las barras de color. 
Posición y dirección de comienzo. 
Define color. 
Habilita la impresión de gráficos en XOR. 
Habilita la rutina de interrupción. 
Mensajes. 
Desplaza (scroll) los mensajes en sentidos opuestos por la pantalla. 
Une los cursores de texto y gráficos. 
Nuevas coordenadas de impresión. 
Borra la bola. 
Imprime la nueva bola en la nueva posición. 
«Separa» los cursores y actualiza la posición. 



rograrnACción I 


Bueno, si nos contentamos con uno 
o dos, la respuesta es sí. 
Podemos usar las interrupciones 
desde Basic para llamar, cada cier- 
to tiempo especificado por nosotros, 
a una subrutina que hará lo siguien- 
te: 
a) imprimirá en pantalla el sprite 
en la posición del cursor gráfico. 
b) realizará la operación lógica 
conocida como «OR exclusivo», en 
Basic XOR contra lo que quiera que 
se encuentre en el fondo sobre el que 
el sprite se desplaza, asegurándonos 
así que permancecerá inalterado 
cuando el sprite sea borrado y ocu- 
pe una nueva posición. 


La operación 
lógica XOR 
En el CPC464, la opción XOR se 
habilita mediante la impresión de un 
caracter de control (el 664 y 6728 
posee sus propios comandos para 
el/o, pero se recomienda usar éste): 
PRINT CHR$(23) ¡CHR$(l) 
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A partir de ahora cualquier punto 
que se imprima en la pantalla será 
calculado realizando un XOR del va- 
lor de PEN del punto del fondo con 
el nuevo PEN del sprite. 
La orden: 
PRINT CHR$(23) ;CHR$(O) 
desactiva el modo XOR. 
Para comprender todo esto y ser 
capaces de predecir el color resul- 
tante de la operación XOR, es nece- 
sario recurrir un poco a los números 
binarios. Nuestro Amstrad podrá 
echarnos una mano, en más, demos- 
trará ser un auténtico experto en la 
materia. 
El MODE O, con 16 colores, real- 
mente es el único útil para nosotros, 
por lo que vamos a concentrarnos en 
él. 
Los valores de PEN se codifican de 
O a 15, y es binario, esto implica que 
necesitamos 4 Bits (no bytes) para 
codificarlas. 
Para verlos todos, basta con pe- 
dirle cortésmente al Amstrad que los 
imprima, mediante: 
PRINT BIN$(número, 4} 
donde, naturalmente, número abar- 
ca el rango 0-15. 
Ahora bien, para averiguar de 
una vez por todas qué hace la ope- 
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ración XOR, podemos decir al Ams- 
trad que resuelva: 
PRINT O XOR 0-- + DA O 
PRINT O XOR 1 -- + DA 1 
PRINT 1 XOR 0-- + DA 1 
PRINT 1 XOR 1 --+ DA O 


Acabamos, mediante sentencias 
PRINT, de construir la Tabla de Ver- 
dad de XOR. En efecto, los resulta- 
dos obtenidos son igualmente váli- 
dos si imaginamos que los unos y ce- 
ros del comando PRINT correspon- 
den a bits de un byte. 
¿Cuánto vale, por eiemplo, 
8 XOR 5? 
(en binario) 
1000 
0101 
1101 


8 ............ 
5 ............ 
8 XOR 5 . . . . . . . 


esto es 8 XOR 5 da 13, como se pue- 
de comprobar mediante la instruc- 
ción PRINT &X11 Ol. 
De modo que si escribimos sobre 
un punto cuyo valor de PEN sea 8, 
otro que posea un valor de PEN de 
5, obtenemos PEN 13 (por esto, en- 
tre otras cosas, usamos el MODE O). 
La inmensa ventaja del XOR es 
que, si ahora en el punto que posee 


....... ..a........... 
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PEN 13, dibujamos otro encima con 
PEN 8, es decir 13 XOR 8: 
13 ........... 1101 
8 ............ 1 000 
13XOR8...... 0101 
obtenemos 5, el color de fondo ori- 
ginal restaurado. 
Lo más duro del trabajo ya está 
hecho, porque podemos preveer el 
color resultante al desplazar un spri- 
te por pantalla y sabemos, también, 
cómo dejar el fondo que atraviese 
dicho sprite inalterado. Esto último, 
si se realiza a velocidad suficiente, 
nos permite dar al observador la 
sensación de profundidad, e incluso 
de volumen, muy fácilmente. 


Mezclar textos y 
gráficos 
La orden Basic TAG permite que 
caracteres, texto, se impriman en la 
pantalla en la posición marcada por 
el cursor de gráficos, usando coman- 
dos gráficos, también, para posicio- 
narlos y colorearlos. 
Seleccionando cuidadosamente 
PEN e INK, podemos conseguir el 
efecto de que un gráfico pasa por 
delante o por detrás de otros gráfi- 
cos (profundida y volumen). 
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Atención a esto: si una pelota se 
imprime usando PEN 8 encima de un 
objeto anteriormente impreso con 
PEN 5, sabemos que el resultado es 
PEN 13 (en XOR, claro). 
Ya esto también: si ahora a PEN 
13 se le asigna el mismo color de 
IN K que a PEN 5, la bola estará en 
pantalla, pero no se verá. 
Por último, si asignamos a PEN 13, 
después, el mismo color que a PEN 
8, la bola aparecerá mágicamente 
por delante del objeto del fondo. 
y esto es todo. 


Los programas 
El progama 1 muestra cómo mo- 
ver una pelota «por delante y por 
detrás» de una serie de barras ver- 
ticales. 
Primero se asignan los colores, 
luego se dibujan las barras con nú- 
meros de PEN de 1 a 7. Se activa el 
XOR, el cursor gráfico y entra el bu- 
cle principal de dibujo. 
Antes hemos dicho que los sprites 
deben moverse independientemen- 
te de cualquier tarea que el ordena- 
dor esté realizando en ese momen- 
to. 


Para ello, el Amstrad tiene dispo- 
nibles cuatro temporizadores que 
nos habilitan para hacer que una de- 
terminada rutina se ejecute cada 
cierto tiempo. 
Este método se conoce como «ma. 
nejo por interrupción», y lo que su- 
cede es precisamente eso, el progra- 
ma principal se ve interrumpido por 
la rutina «interruptora», se detiene, 
la rutina se ejecuta y el principal si- 
gue desde el punto exacto donde se 
quedó antes. 
Si la velocidad con que se realiza 
este complejo proceso es lo suficien- 
temente rápida, como de hecho ocu- 
rre, el observador piensa que más 
de una tarea se está ejecutando al 
mismo tiempo. 
Por tanto, si escribimos la rutina 
que mueve el sprite en la línea 1000, 
por ejemplo, y damos al Basic la or- 
den: 


EVERY 10 GOSUB 1000 
dicha rutina se ejecutará 5 veces por 
segundo, no importa lo que el Ams- 
trad esté haciendo (sería aconseja- 
ble repasar el manual en los capítu- 
los en los que se explica el funciona- 
miento de los comandos EVERY, AF- 
TER Y REMA/N). 
El retardo (el número que va des- 
pués del comando EVERY), puede 
ser cualquiera, permitiéndonos esco- 
ger a nuestro antojo la velocidad del 
sprite. 
El programa 2 muestra la comple- 
ta interacción de una rutina princi- 
pal y otra que se ejecuta por inte- 
rrupción. 


Muy pronto, 
ien máquina! 
El lector se habrá percatado de 
que hemos empezado hablando de 
sprites y, por necesidad, nos hemos 
introducido en el mundo mucho más 
general de las interrupciones. 
A más de uno este artículo le ha- 
brá sabido a poco, y se preguntará 
como manipular las interrupciones, 
los «sucesos» (events) en el manual 
del firmware, desde lenguaje máqui- 
na. 
Este será precisamente el tema de 
un próximo artículo, que estructura- 
rá y relacionará lo que aquí se ha di- 
cho de una forma mucho más útil y 
general, permitiéndonos aplicar las 
técnicas de manejo de interrupciones 
desde lenguaje máquina a un sprite 
o a lo que se nos ocurra. 
Hasta entonces, pensamos que lo 
expuesto constituye material suficien- 
te de aprendizaje y experimenta- 
ción. 


. ROGRAM · 


JO REM Pr()grama... 1 
:'0 MODr O:BORDER o 

o FDR 1
 (1 TO 15 
4", READ J'l.:INI' ,'I.,J
. 
"5(' NFXT 
AO FOR ,1.-1 TO 7 
70 PAPER ,'l.:IOCATE 2*11.+2.5 
en FOk J'I.-I TO 15 
9n PRINT " ":CHR$(81:CHR$(10)¡ 
1 ('O NEXT 
110 NEXT 
120 PRINT CHk$(23) :CHR$(I) 
130 TAG:PLOT -10.-10,8 
140 WHII E I 
150 FOR ,,1.=-:,0 TO 640 STEP 4 
,MI "'I0VE x'l.,:'OO:PRINT CHR$(231I, 
170 FOR delay=O TO 50,NEXT 
180 NOVF xl.. 200: F'RINT CHR$ C231 1, 
190 NEXT 

(lO WENO 
:'10 DATA 0,6.9.:'4.1.8.10.26 
7?O DATA 7.6.7.24.7.8.7.26 


u' "II"
"''' 1"" 
. lo' r" I ..... I ..." lo"'''. 


10 REM Programa...2 
20 NODE O:BORDER O 
30 FOR 11. O TO 15 
40 READ J'l.:INI 1'l..J'l. 
50 NEXT 
60 FOR 11.=1 TO 7 
70 PAPER 1'l.:LOCATE :*'1.+2.5 
80 FOR 
'l.-I TO 15 
90 PRINT " ",CHR1H81 :CHR$(10): 
100 NEXT 
110 NEXT 
120 xl. -32::<step'l. 8:y'l.-200:ystep'l.=0 
130 PLOT -IO,-10,B 
140 PRINT CHR$(23I,CHR$(I) 
150 EVERY 10,3 GOSUB 290 
160 a
="Movemos la bola usando inte 
r-rupC:l ones. . . 11: b$ a$ 
170 c:$=11 Spriles? ":d$ c:
 
180 WHILE INVEYS()" " 
190 IF LEN(bS)<20 THEN b$=b$+a$ 
200 LOCATE 1.I:PRINT LEFT$Cb$.201 
210 b$=NID$(b$,2) 
220 IF LENCd$)<20 THEN d$ c$+d$ 
230 LOCATE 2,25:PRINT RIGHT$(d$. lBI 


240 d$ LEFT$Cd$,LENCd$)-!1 
250 WEND 
260 END 
270 : 
280 REM Subrutlna de Interrupc:ion 
290 TAG 
300 oX'l.-(x'l.+xstep'l.) MOD 640 
310 yy'l. (y'l.+ystep'l.l MOD 400 
320 NOVE 01., y'l.: F'RINT CHR$ (231), 
330 MOVE .x
" yy'l.: PRINT CHR$ (2:::.1 1, 
340 TAGOFF:x'l.-xxX:y'l.-yy'l.:RETURN 
350 : 
360 DATA 0.6,9,24.1.8,10,26 
370 DATA 7.6,7.24,7,8,7,26 
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Poro que lus dedo. 
no realicen el trabajo duro, M-H AMS. 
TNAD lo hace por /1. Todos los lisiados que induyon 
esle logollpo se encuenlron o lu dlsposiáon en un coso 
selle mensual, soliálonoslo. 



TARSTRIKE 


En los confines de una lelana--. 
galaxia, tiene lugar una 
terrible contienda, las naves 
enemigas defienden su 
estrella de combate con 
denodados esfuerzos, los láser 
defensivos intentan detener 
nuestro ataque suicida. 
Misión: destruir la Estrella de 
la Muerte. 


E.,pedo "tá omenowdo po, 
el inmenso poder de una nave colo- 
sal, capaz de asolar planetas ente- 
ros con sus terribles armas. 
La Estrella de la Muerte, domina 
bajo el yugo del miedo a toda la ga- 
laxia, aplastando cualquier insubor- 
dinación, solamente con su proximi- 
dad; su fuerza y poderío son tan des- 
comunales que cualquier planeta 
que la divisa teme por su existencia. 
En este ambiente de miedo, exis- 
ten pocos valientes capaces de desa- 
fiar el poder de la temible estrella. 
Solamente Obi-Uan-kenobi, ca- 
ballero Yedi conoce su secreto y es- 
tá en posición de enfrentarse al po- 
der del mal que nadie puede vencer. 
Obi-Uan, maestro de guerreros 
Yedi, instrulló al terrible Darth Vader 
en el dominio de La Fuerza. Un ca- 
ballero Yedi en posesión de la fuer- 
za que está por encima de la ambi- 
ción y el poder y su puesto se encuen- 
tra al lado de la justicia y el bien. 
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Pero Darth Vader sucumbió ante la 
cara oscura de la fuerza, entrando 
en el mundo del mal, convirtiéndose 
gracias a sus poderes en ellugarte- 
niente del emperador el cual le ha 
otorgado el mando de la temible Es- 
trella de la Muerte. 
Sky Walker, es un joven guerrero 
Yedi, entrenado también por el gran 
maestro Obi-Uan, está en posesión 
de la fuerza y es piloto de combate; 
su instructor le ha elegido como pre- 
dilecto y le confía el secreto de Darth 
Vader. 
El ambiente de rebelión se extien- 
de por todo el imperio y una fuerza 
de combate se dispone a intentar el 
asalto final a la poderosa estrella. 
Sky Walker es uno de los pilotos 
elegidos. En este momento comien- 
za nuestra aventura, estamos a los 
mandos de nuestro caza intergalác- 
tico. 
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El primer escollo son las naves ene- 
migas que aparecen en oleadas y 
disparan sobre nosotros. Podemos 
detener los disparos con nuestro fue- 
go y debemos destruir el mayor nú- 
mero posible de naves. 
Superada esta primera prueba, 
pasamos al planeta, en el que debe- 
mos hacer fuego sobre zonas de 
energía radiante. 
En sucesivas fases, nos encontra- 
remos con columnas de energía que 
crecen delante de nuestra vista dis- 
parando láseres cuando su altura ha 
llegado al máximo. 
Por fin entramos en la Estrella de 
la Muerte, estamos en uno de los co- 
rredores, obstáculos a distintas altu- 
ras interceptan nuestro paso por 
ellos, los láseres intentan alcanzarnos 
mientras destruimos las escotillas de 
fuego. 
Si salimos del túnel, llegaremos al 



sistema central de reactores, un dis- 
paro certero es suficiente para des- 
truirlo, si lo conseguimos habremos 
salvado a la rebelión de las fuerzas 
imperiales. 
Starstrike, es simplemente fantás- 
tico, los efectos en tres dimensiones J 
son los mejores logrados en la histo- 
ria, la acción es trepidante, la velo- 
cidad se siente. 
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Los objetos se aproximan y se ale- 
jan como si se tratase de la más pu- 
ra realidad, la sensación de perspec- 
tiva está completamente lograda. 
El juego es completamente apasio- 
nante, solamente tenemos que preo- 
cuparnos de aniquilar todo aquello 
que aparezca delante de nuestro 
punto de mira. 
Programas como éste llevan con 
orgullo el distintivo de tres dimensio- 
nes, no otros que proclaman a voz 
en grito tres dimensiones y luego nos 
encontramos con verdaderos adefe- 
sios, en los que las tres dimensiones 
son de verdadera risa. 
Un juego para los amantes del 
Joystick y la acción. 
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UPER TOOLKIT 


A la hora de elaborar nuestros 
programas, debemos contar 
con una herramienta que nos 
evite tener que estar 
tecleando constantemente 
comandos como: RUN, L/S1, 
£011, etc_ 


Análisis en esta ocasión, pretende facili- 
tar la labor de programar con Super T oolkit, 
una herramienta que contiene los comandos 
más usados en las labores de creación, edi- 
ción y corrección de programas. 
La utilización de éste nos permite con un to- 
que de tecla, la ejecución de los comandos más 
útiles para trabajar con listados y comprobar 
el funcionamiento de un programa. 


L.,r- 


Comando Tecla 
RUN FO 
GOTO F1 
LlST F2 
EDIT F3 
AUTO F4 
RENUM F5 
CLS F6 
MODE O F7 
MODE 1 Fa 
MODE 2 F9 


Todas las funciones se obtienen pulsando la 
correspondiente tecla de función + [CON- 
TROL]. 
De todos los comandos: RUN, LlST, RE- 
NUM, CLS, MODE O, MODE 1, MODE 2, son 
de ejecución inmediata. 
Mientras que GOTO, EDIT y AUTO, deben 
completarse con unos parámetros, lo que ha- 
ce su uso mucho más flexible, adaptándose a 
nuestras necesidades. 


,-. í 
10 REM ***************** 
20 REM * SUPER TOOU<IT * 
30 REM ***************** 
40 KEY O
 "I'"Lln"+CHR$ (13) 
50 .<EY l
"goto " 
60 KEY 2
 "list"+CHR$(13) 
70 .(EY ;::-, 
 "ed i t " 
80 
:EY 4
"aLlto " t 
90 .<EY 5
 "l'"enum"+CHR$ (13) 
100 .<EY 6
 "cls"+CHR$ (13) 
110 KEY 7 
 "mode O"+CHR$ (13) 
I 120 KEY 8
 "mode 1 u+CHR$ (13) 
130 KEY 9
 "mode 2"+CHR$ (13) 
140 DELETE 
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mnális is 


Estos comandos, son de gran utilidad en la 
edición y corrección de programas, una vez 
cargado el programa en memoria y puesto en 
funcionamiento, el listado desaparece, permi- 
tiéndonos empezar nuestro programa en la lí- 
nea que deseemos sin que nos molesten las 14 
líneas del Super T oolkit. 
10-30 REMS que identifican nuestro pro- 
grama. 
40 Define en la tecla de función número O, 
el comando RUN, al cual se le suma CHR$ (13) 
equivalente a ENTER, lo que produce que al 
pulsar la tecla FO + [CONTROL], el progra- 
ma que tengamos en memoria se ponga en 
marcha. 
50 Define el comando GOTO en la tecla de 
función F1, esta línea no contiene el CHR$ 
(13), por lo cual el comando anterior no se eje- 
cutará automáticamente. 
Simplemente aparecerá en pantalla el men- 
saje GOTO, seguido de un espacio en blan- 
co, de manera que al teclear el número de lí- 
nea deseado y pulsar ENTER, el programa 
transmite la ejecución a esa línea. 
60 La tecla F2, queda definida con el co- 
mando LlST, con ejecución automática (debi- 
da al CHR$ (13), lo que hace que al pulsar esa 
tecla de función + [CONTROL], el, listado del 
programa se efectúe automáticamente. 
70 Dota a la tecla de función F3, de la or- 
den EDIT, no ésta tiene ejecución automática, 
permitiéndonos espaciar el número de línea 
que deseemos editar. 
80 Define la sentencia AUTO, en la tecla 
de función F4, ésta también viene sin ejecu- 
ción automática, de manera que podamos es- 
pecificar los parámetros de número de línea 
e incremento. 
Si pulsamos ENTER sin teclear ninguno de 
los parámetros, los número de línea se gene- 
rarán a partir de 10, con incremento también 
de 10. 
90 Introduce el comando RENUM, en la F5, 
es de ejecución automática por lo que se efec- 
tuará una renumeración de 10 en 10 a partir 
de la línea 10. 
100 Define el comando CLS, de ejecución 
automática en la tecla F6. 
110 MODE O de ejecución automática en 
F7. 
120 MODE 1 de ejecucián automática en 
Fa. 
130 MODE 2 de ejecución automática en 
F9. 
140 El DELETE al final del listado, tiene por 
objeto borrar el listado, de forma que éste no 
nos moleste para editar y elaborar nuestros 
listados. 
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Te presentamos un eqwpo sensacional: el 
AMSTRAO CPC 6118. 
Con un sólo cable para enchufar a la red. el 
SIstema 6128 está listo para funCionar, 


JUEGA y APRENDE 
CON 'EL 6128 


Para jugar. el 6128 es un ordenador muy 
serio: gracias a sus Cientos de programas 
dlspombles. tienes aseguradas horas de 
entretemiTllento. Yen el mundo de la ensetianza 
no es menos, 
Gracias a sus sensaCionales capaCidades 
gráficas (paleta de 27 colores y hasta 640 x 200 
PIXELS) y sonoras (J voces y 8 octavas, altavoz 
intenor y saMa stereo) el 6128 es una 
herramienta inigualable. Además. dentro del 
paquete de programas que se entrega con el 
sistema. está mcluido el lenguaje educativo por 
excelencia: elOr. LOGO de Digilal Research. Y 
para profundizar en el lenguaje de la mformátlca 
recuerda que el 6128 es el orde'Jador Idóneo. ya 
que posee uno de los mas rápidos y potentes 
BASIC -el L OCOMO TI VE BASIC-. así 
como otros muchos lengua les de programación: 
FORTH, PASCAL, etc. 
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TRABAJA CON EL 6128 


El CPC 6128 incluye en su 
suministro: 


Haz un sitio en tu negoCio al 6128. Planifica 
presupuestos. lleva contabilidades. gestiona 
archivos. todo fáCilmente gracias a su Sistema 
Operat,vo CPIM (en ver510nes 2.2 y Plus). que 
(como ya sabes) te permitirá acceder a la más 
extensa blbltoteca de programas profesionales: 
bases de datos. procesadores de textos. hojas de 
cálculo. etc. 


- DIsco con Sistema Operativo CPIM 2.2 
y lenguaje Dr. LOGO 
- DIsco con Sistema Operativo CPIM Plus 
y utilidades. 
- DiSco con seis programas de obseqwo. 
- Manuales en castellano. 


CARACTERISTICAS 
TECNICAS 


- GARANTIA AMSTRAO ESPAÑA 
UNICA VALlOA PARA ACCEOER AL 
SERVICIO TECNICO OFICIAL. 


TODO POR: 
109.500 ptas. 
(monitor fósforo verde) 
114.500 ptas. 
(monitor color) 


- 128K RAM Y 48K ROM (incluye 
Locomotive BASIC y Sistema 
Operativo). 
- MoMor: Color de 14" y fósforo 
verde de 12". 
- Umdad de DIsco J" incorporada 
(180K por cara). 
- Teclado profesional. 
- Sistema Operativo: AMS ros. 
CPIM 2.2 y CPIM Plus. 
- Sailda para segunda unidad de 
disco y cassette externa, 
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GARANTIA INDESCOMP 
Avd. del Mediterráneo. 9 - 28007 Madrid Te/s. 433 45 48 - 433 48 76 - Telex 47660 FAX - 4332450 
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AMSCARD es un programa que, sin duda, le será de fJran ayuda 
para ordenar cualquier cosa, con la única Iimitacion que sus 
necesidades le impongan o su imaginación le permita. Haciendo 
uso de las facilidades del Amstrad 8asic, podemos manejar 
hasta 500 fichas de 5 campos implementadas según la técnica 
de ficheros secuenciales. 
COMPATIBLE 
CPC 664 
CPC 6128 
Programa realizado por: 
J. J. MARTIN 


uando nos surgió la idea de 
publicar un programa especialmen- 
te diseñado para correr en un CPC 
apoyado por una unidad de disco, 
nos pareció una restricción lo sufi- 
cientemente fuerte para que un buen 
número de lectores-usuarios del 
464 se sintiera marginado ante su 
aparición en estas páginas. Sin em- 
bargo, la calidad del programa que 
presentamos, el incremento de usua- 
rios del 464 que se deciden por una 
opción más profesional, ampliando 
su equipo con una unidad de disco 
(dos?), nos hicieron superar este hán- 
dicap inicial y lanzarnos a esta nue- 
va aventura. La aventura del disco. 


DESCRIPCION GENERAL 
DE AMSCARD 
Básicamente AMSCARD es lo que 
en el mundo informático se denomi- 
na una base de datos. La misión de 
este tipo de programas es la clasifi- 
cación de un cierto número de datos 
agrupados en fichas. Cada uno de 
los datos que componen una ficha 
recibe el nombre de campo. En el ca- 
so concreto de AMSCARD dispon- 
dremos de cinco campos, es decir, 
podremos almacenar hasta cinco da- 
tos distintos por cada ficha, más otro 
campo principal que servirá para 
realizar las operaciones de búsque- 
da de una ficha. Cada campo reci- 
be la denominación que deseemos 
(p. e;. «Teléfono), salvo el campo 
principal que siempre recibe la deno- 
minación «Nombre». De este modo 
nosotros definiremos la estructura de 
cada ficha, en base al tipo de obje- 
tos que queramos clasificar. Gracias 
a esta posibilidad podremos ordenar 
claramente, desde sellos de correos 
hasta la lista de nuestros clientes. 
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El lugar donde se guardan estos 
datos, se reparte entre la memoria 
de nuestro ordenador y el soporte de 
almacenamiento (el disco). En el dis- 
co coexisten tres ficheros denomina- 
dos «CAMPOS»¡ «DIRECT» y «ARCHI- 
VO». Los dos primeros se vuelcan di- 
rectamente en memoria nada más 
correr el programa. En ellos se alma- 
cenan la denominación de los cam- 
pos, en el primero; y el primer cam- 
po, campo principal de cada ficha, 
en el segundo. De este modo, cuan- 
do solicitamos una ficha, para su lec- 
tura o modificación, podemos encon- 
trarla de forma rápida, tengamos en 
cuenta que el rastreo en la memoria 
del ordenador es miles de veces más 
rápido que la búsqueda en un disco. 
Una vez encontrado el campo 
principal de la ficha obtenemos un 
número que nos da la posición del 
resto de los campos en el disco. Po- 
dría plantearse por qué razón no te- 
nemos, desde un principio, toda la 
información en memoria. La respues- 
ta es sencillamente que la memoria 
de nuestro CPC es limitada, ni el po- 
tente 6128 podría abordar este pro- 
blema con éxito. Tenga en cuenta 
que una ficha de cincuenta letras por 
campo, ocuparía alrededor de 1/3 
de K (7.024 Kbytes). Teniendo en 
cuenta que disponemos de unos 30 K 
ibres, una vez cargado el programa, 
limitaríamos la capacidad del fiche- 
ro a unas 90 fichas, en contraposi- 
ción con las 500 fichas de 255 letras 
por campo que puede gestionar 
AMSCARD. 


CARGA DEL PROGRAMA 


Una vez tecleado el programa te- 
clee RUN y pulse ENTER, no se 
preocupe de salvar el programa, 
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pues éste está preparado para auto- 
salvarse. Una vez aparecido en pan- 
talla el menú pulsemos para elegir la 
opción inicializar disco. 


INICIALlZAR DISCO 


. 
\ 


La pantalla se borrará yaparece- 
rá la pregunta «Campo 1 ?», Para 
comprender esto, describamos pri- 
meramente, aunque ya hemos ha- 
blado sobre ello, el formato de las fi- 
chas que van a integrar nuestro fi- 
chero. 
Cada ficha se compone de un 
nombre, el cuál será el único elemen- 
to válido para posteriores trabajos 
con la ficha. De la elección del ele- 
mento que se va a almacenar en es- 
te campo depende el90 por 100 del 
éxito de nuestro fichero. A parte del 
nombre, cada ficha pone, como ya 
dijimos, de cinco campos redefinibles 
por el usuario. Que nadie se asuste 
la cosa es más sencilla de lo que las 
palabras pudieran hacernos pensa
. 
Si nuestro fichero nos fuese a serVir 
para hacer un archivo de nuestros 
amigos, en el nombre iría, evidente- 
mente, el nombre. Los campos que 
definiríamos, por ejemplo, serían los 
siguientes: 


Campo 1: 
Campo 2: 
Campo 3: 
Campo 4: 
Campo 5: 


Dirección. 
Código postal. 
Población. 
Teléfono. 
Fecha de cumpleaños. 


Llegados a esta altura, cualquiera 
se encontrará en disposición de res- 
ponder a la pregunta que tenemos 
en pantalla. La respuesta será el 
nombre que queramos asignar al 
campo uno, una vez tecleado, pul- 
samos ENTER y nos encontrare- 
mos con «Campo 2:?», y así sucesi- 
vamente hasta que hallamos defini- 
do los cinco campos previstos para 
cada ficha. T erm i nada esta opera- 
ción aparecerá el mensaje «Inserte 
disco archivo». Pondremos el disco 
en el cual queremos se encuentre 
nuestro archivo y pulsaremos cual- 
quier tecla. En este disco, para una 
mayor comodidad, se encontrará 
también grabado AMSCARD. De 
forma que cuando queramos utilizar 
el archivo guardado en este disco te- 
clearemos únicamente RUN «AMS- 
CARD». 
Finalizada esta opción, regresare- 
mos de forma automática al menú 
principal y único del programa. En 
esta situación podremos acceder úni- 
camente a tres opciones: 


S erie Oro 


Archivar. 
Inicializar disco. 
Inicializar disco con campos. 
Cualquier otra elección nos hará 
regresar al menú con el mensaje 
«ARCHIVO VACIO». 
Pulsemos A y decidámonos a crear 
el archivo. 


ARCHIVAR 


A partir de este momento, estamos 
en disposición de llenar nuestras pro- 
pias fichas. Primero cargaremos el 
nombre, luego el campo 1, el cam- 
po 2, y así sucesivamente hasta 5. 
Naturalmente, en pantalla no nos 
aparecerá Campo 1, sino la defini- 
ción que hayamos dado al campo 
número 1 i dirección, si nos atenemos 
a nuestro ejemplo. 
De esta forma iremos sucesiva- 
mente ampliando nuestro archivo. 
Cuando queramos finalizar esta op- 
ción contestaremos con M o m a la 
pregunta «NOMBRE?». De este mo- 
do el archivo se volcará en el disco, 
regresando después al menú. Para 
evitar el riesgo de sobrecarga de me- 
moria o corte de luz, es una buena 
medida efectuar esta operación ca- 
da diez o quince fichas realizadas. 
Después para continuar archivando 
pulsaríamos nuevamente A. 


BUSCAR/VISUALlZAR 


Para acceder a esta opción pulsa- 
remos V. Se nos pedirá inmediata- 
mente el nombre del titular de la tar- 
jeta. Aquí nos encontramos con una 
de las potentes ventajas con que 
cuenta AMSCARD. El nombre no ten- 
drá que ser completo, sino que po- 
drá ser cualquier subcadena conte- 
nida en él. Por ejemplo si tenemos 
una ficha declarada a nombre de 
JULlAN RODRIGUEZ MARTIN. Nos 
bastará con teclear J U LlAN o RO- 
DRIGUEZ o incluso MART. Siempre 
y cuando, claro está, estemos segu- 
ros de que no existe otra ficha a 
nombre de otro J U LlAN u otro RO- 
DRIGUEZ u otro MARTIN o MARTI- 
N EZ. Incluso a la petición de nom- 
bre podríamos responder con un sim- 
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LISTA DE 
VARIABLES 


C: Contiene el número de 
campo. 
CAMP$(C): Nombre del campo C. 
ENCONT: Número de la ficha 
solicitada en opción 
búsq ueda/visualización. 
HENO: Ultima ficha almacenada 
en archivo más uno. 
FICH$(n,m):Campo número m de la 
ficha n. 
MOT: Número de ficha para 
modificar. 
NAME$(N): Nombre del titular de la 
ficha n. 
NOMBRE$: Nombre del titular 
solicitado, para visualizar o 
modificación. 
PUl$: Se utiliza para almacenar 
el valor de una tecla 
pulsada. 


pie ENTER (cadena vacío), con la 
aparición indefectible de la primera 
ficha . Tenga en cuenta que la cade- 
na vacía se encuentra contenida en 
cualquier cadena. 
Una vez introducido el nombre, 
dos cosas son las que pueden suce- 
der. Que la ficha no sea encontra- 
da, lo que se nos indicará en la par- 
te inferior de la pantalla, a la vez que 
se nos solicita otro nombre; o que 
sea encontrada, con lo que la ficha 
completa aparcerá en pantalla. Aho- 
ra si pulsamos M regresamos al me- 
nú, si pulsamos P obtendremos una 
copia por impresora y pulsando cual- 
quier otra tecla, se nos volverá a in- 
terrogar sobre la ficha que queremos 
solicitar. 
Ha de tener cuidado con la opción 
impresora (P), ya que si ésta no está 
conectada o se encuentra desenchu- 
fado, el programa se quedará col- 
gado en una situación de espera. 
Pulse ESC dos veces y después eje- 
cute AMSCARD con RUN. Esta ope- 
ración puede hacerla con toda tran- 
quilidad, pues no perderá ninguna 
información. 


MODIFICAR 


Desde esta opción a la que se ac- 
cede pulsando M, podremos modifi- 
car el contenido de una ficha. El sis- 
tema de petición es idéntico al des- . 
crito en la opción anterior. 
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Una vez encontrada la ficha se nos 
mostrará en pantalla, apareciendo a 
la derecha de nombre una flecha, 
ahora si pulsamos C, el nombre an- 
terior quedará borrado y podremos 
introducir el nuevo. Si pulsásemos 
cualquier otra tecla se conservará el 
que tenemos y podremos pasar a 
modificar, sucesivamente, los cam- 
pos del mismo modo. Tras cada mo- 
dificación regresaremos automática- 
mente al menú. Para abortar la op- 
ción podremos hacerlo no modifican- 
do ninguno de los datos de la ficha 
que puede ser la primera pulsando 
ENTER. 


LISTAR ARCHIVO 


Por medio de esta opción iremos 
visualizando en pantalla las distintas 
fichas, desde la 1 hasta la última in- 
troducida. Tras la presentación de 
cada ficha deberemos pulsar una te- 
cla. M para regresar al menú, P pa- 
ra obtener una copia por impresora 
y cualquier otra tecla para obtener 
la siguiente ficha. 


LIMPIAR ARCHIVO 


Si por algún motivo el archivo hu- 
biese dejado de interesarnos, pode- 
mos vaciarlo utilizando esta opción. 
Dada su gravedad, se nos pedirá 
confirmación antes de realizar la lim- 
pieza. Sólo se vacía el archivo, por 
lo que podremos seguir trabajando 
con el mismo disco el cual contendrá 
los mismos campos. 
Si usted hubiese borrado el archi- 
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vo y se diese cuenta que éste le inte- 
resaba, puede aún recuperarlo, ten- 
ga en cuenta que en el disco existe 
una copia (ARCHIVO.BAK). Cám- 
bielo de nombre desde AMSDOS o 
CP/M por ARCHIYO. No olvide po- 
ner un punto tras la palabra ARCHI- 
YO. 


EFECTUAR BAJA 


La utilidad de esta opción está en 
dar de baja una ficha, permitiendo 
aprovechar al máximo la memoria 
suprimiendo fichas inútiles. Procure 
dar el nombre lo más detallado po- 
sible, incluso entero si fuese necesa- 
rio, tenga en cuenta que puede bo- 
rrarse una ficha que le interese. 
Puede abortar esta opción respon- 
diendo a la petición del nombre del 
titular de la tarjeta con M. 


INICIALlZAR CON 
CAMPOS 


Esta opción es prácticamente idén- 
tica a la descrita anteriormente, ini- 
cializar disco, con la diferencia que 
toma como campos los definidos ya. 
El uso de esta opción viene determi- 
nado ante la necesidad de tener el 
archivo lleno y desear continuar ar- 
chivando. En previsión de esta nece- 
sidad, sería aconsejable que si el fi- 
chero va a ser muy amplio inicializar 
varios discos utilizando cada uno de 
ellos para un grupo de nombres que 
empiezen por unas letras determina- 
das. Por ejemplo desde la A a la M 
un disco y desde la N a la Z en otro 
disco, o en la otra cara del disco. Es- 
to nos permitiría usar hasta 1.000 fi- 
chas. 


PARA TERMINAR 


y si después de todo lo dicho aún 
le queda alguna duda no lo piense, 
siér/ese ante su CPC y decídase a or- 
denar su biblioteca. El diseño de la 
ficha podría ser perfectamente el si- 
guiente: 
NOMBRE: Aquí iría el título del libro. 
AUTOR: 
EDITORIAL: 
FECHA D.E EDICION y PAGINAS: 
TEMA: 
PRESTADO A: 


Sin duda alguna su biblioteca se lo 
agradecerá. Que usted lo ordene 
bien. 



SIETE CONSEJOS 
UTILES PARA LA 
UTILlZACION DE 
AMSCARD 
1. Antes de realizar un archivo estudiÉ: 
cuidadosamente el diseño de la ficha, es- 
to es, la denominación de los campos. Si 
le faltan campos puede utilizar uno para 
dos datos. Por ejemplo el Teléfono y el Có- 
digo Postal pueden ir en el mismo, en el 
caso del archivo descrito anteriormente. 
2. No insistiremos lo suficiente en cuan- 
to a la elección del dato que vamos a guar- 
dar en el campo principal. Si utilizase este 
paro guardar la dirección, cuando inten- 
tase averiguar la fecha de cumpleaños de 
su querido y buen amigo Pepe, deberá me- 
ter el nombre de la calle donde vive, lo 
cual puede resultarle bastante incómodo. 
Tampoco lo utilize si va repetir este dato 
en otra ficha, por ejemplo para guardar 
el autor de un libro, el siguiente libro del 
mismo autor no podría ser encontrado. 
3. Si usted desea tener 10 archivos dis- 
tintos habrá de tener cinco discos, en ca- 
da caro de un disco sólo puede haber un 
fichero, pues si no al utilizar uno inutiliza- 
ría los otros. 
4. En el caso de que no vaya a utilizar 
el disco para alguna utilidad de CP/M, for- 
matee el disco con FORMA T D. Obtendrá 
más capacidad de almacenamiento. Na- 
turalmente AMSCARD, puede convivir per- 
fectamente con otros programas en el dis- 
co. 
5. Cada campo, el principal incluido, 
admite un máximo de 255 caracteres. No 
obstante, procure no sobrepasar las tres 
líneas de texto por campo cuando elabo- 
re la ficho, si las sobrepasa el conjunto per- 
derá en estética y comodidad. 
6. El campo principal, NOMBRE, pro- 
cure no lIenarlo demasiado, como norma 
no lo cargue con más de 50 caracteres, a 
no ser que quiera arriesgarse a quedarse 
sin memoria. Tenga en cuenta que cada 
caracter ocupa un byte. Con lo que si tu- 
viésemos 100 caracteres en el campo prin- 
cipal de cada ficha, necesitaríamos 
100* 500 byte s, es decir, 50.000 bytes (50 
K aprox.). Memoria con la cual no conta- 
mos, salvo, claro está, los envidiables usua- 
rios del 6128. Utilize el resto de los cam- 
pos a tal efecto, pues éstos no ocupan me- 
moria al estar cargadas en el disco. 
7. Modificando la rutina impresora po- 
dremos realizar las direcciones de nuestra 
correspondencia, imprimiendo en pegati- 
nas que existen comercializadas, a tal efec- 
to, o en el mismo sobre. Obteniendo un re- 
sultado elegante y rápido. Por desgracia 
esto no puede estandarizarse en el progra- 
ma debido a la infinidad de impresoras 
existentes, junto a sus diferencias de utili- 
zación. 


10 RE'M===. . 
=1 N I C I 0====- -====-=
 
20 ON ERROR GOTO 1390 
30 IN

 0.0: INf
 1. 16:BORDER 16: :DISC 
40 MODE I,PAPER I:CLS:WINDOWIII.6,36 
.6.17:PAPERlll,2:PENIII,O:CLSIII:LOCAT 
EIII,
.
:PRINT 111,"******* A M S C A 
R D * * ** * ** " : PEN o 
50 PLOT SO.319.0:DRAW 575,319:DRAW 
575. 129:DRAW SO. 129:DRAW SO,319 
6n LorATE S.14:PRINT "V.2/S5 MICRO 
HOBBY AMSTRAD":DEFINT a-2 
70 LOCATE 14.II:PRINT "POR JJ. MAR 
TIN":LOCATE 7.IS:PRINT STRINGS(3I,2 
16):FOR n=1 TO II:LOCATE 37,6+n:PRI 
NT CHRS(207):NEXT 
so PEN I:LOCATE 2.24 
90 DI M f]chS(500,5):DIM nameS(500): 
DIM CAMPS(5):OPENIN "DIRECT":INPUT 
119.HEND:FOR n=1 TO HEND:INPUT 119,na 
meS(n):NE'XT:CLOSEIN:OPENIN "CAMPOS" 
:FOR C=I TO 5: INPUT 119.CAMPS(C):NEX 
T:CLOSEIN 
1 (Ir, MC1DE 2:PEN 113,2:PAPER 113.1:PEN 
I:PAPER 2:WINDOW IIl,19,61.23.25:PEN 
IIl.l:PAPER 1I1.2:CLS IIl:WINDOW 112,2 
2.52.3.23:PEN 112,2:PAPER 112,1::WIND 
OWII3.1,80,.5,22:BORDER o 
110 ON ERROR GOTO o 
120 RFM== --=M E N U 


130 ClS 
140 CLSII2:S0UND 1,300,15.15,2,2:LOC 
ATEII2. S,2:PRINT 112,".--M E N U--." 


150 IF IN
EYS()"" THEN 150 
160 LOCATE 112,2.4:PRINTII2, "A.-ARCH 
IVAR.":LOCATE 112.2,6:PRINT 112, "8.- 
EFECTUAR BAJA. ":LOCATE 112,2,S:PRINT 
112, "V.-BUSCAR/VISUALIZAR.":LOCATEII 
2.2,10:PRINT 112,"L.-LIMPIAR ARCHIVO 
. ":LOCATE 112,2, 12:PRINHI2, "I.-INICI 
Al IZAR DISCO." 
170 LOCATE 112.2. 14:PRINTII2, "M.-MODI 
FICAR ARCHIVO. ":LOCATEII2.2, 16:PRINT 
112. "C.-INICIALIZAR CON CAMPOS. ":LOC 
ATEII2,2,IS:PRINT 112, "F.-LISTAR ARCH 
IVO. ":LOCATEII2.2,20:PRINTII2, "S.-SAL 
IR DE AMSCARD.":LOCATE 112,2,6:PRINT 
112, "B.-EFECTUAR BAJA." 
ISO PULS=UPPERS (IN

EYS): IF PULS="" 
THEN.GOTO IBO 
19CJ If' PUL$="V" THEN 290 
200 IF PUL$="A" THEN 430 
210 IF PULS-"B" THEN 1270 
220 IF PULS "1" THEN 590 
230 IF PUL S "C" THEN 610 
240 IF PULS="L" THEN 750 
250 IF PULS="M" THEN 790 
260 IF PUI$="F" THEN 990 
270 IF PUL$-"S" THEN 1160 
2S0 GOTO 120 
290 REM -====V 1 S U A L IZA R 


300 IF HEND-I THEN GOTO 80(' 
310 CLSIII 
320 :CLSII3:LOCATEII3,14.9:INPUl II
." 
NOMBRE DEL TITULAR DE LA TARJETA":N 
ombre$:FOR N=1 TO HEND:ENCONT=N:IF 
INSTR(UPPER$(name$(N),UPPER$(nombr 
e$»)('O THEN 340 
330 NEXT:CLS III:LOCATE 1I1.2.2:PRINT 
11 1, "NOMBRE DESCONOC 1 DCl. NO APAkH: 
E EN ARCHIVO":GOTO 320 
340 CLSlll:0PENIN "archivc":FOR ,,=1 
TO 
ncont-I:FOR m
1 TO 5: INPUT 119,a 
$:NEXT:NEXT:FOR m=1 TO 5: INPUT 119,f 
]ch$(ENCONT.m):NEXT M:CLOSEIN: CLS 
113 
350 PRINTII3. "--------------------- 
------------ficha ";USING "IIIIII";ENC 
ONT;:PRINT 113,"------------------ - 


-------------_____11; 


360 LOCATEII3.3,2:PRINTII3."NoMBRE:", 
:PRINTII3.USING "8,";NAME$(ENCONT> :FO 
R c 1 TO 5:LOCATEII3,3,c+2+2*c:PRINT 

3,camp$(C):USING"&",":";f'ch$(
nco 
nt,C):NEXT C:LOCATE 113,1.20 
370 PRINT 113,"--------------------- 


. 


. 
I 


. 


3S0 PRINT 111," 
RA IMPRIMIR"," 
EGRESAR AL MENU"." 
PARA CONTINUAR OPCION" 
390 1 F 1 Nf:EY$( )"" THEN 390 
400 PUL$=UPPER$(INLEYS):IF PUL$="" 
THEN 400 
410 IF PULS="P" THEN GOSU8 1240 
420 IF PUL$="M" THEN 120 ELSE GOTo 
310 
430 REM ==-A R C H I V A R=== 


PULSE P PA 
PULSE M PARA R 
OTRA TECLA 


440 com=hend:IF HEND)499 lHEN GOTO 
1220 
450 CLSII3 
460 PRINTII3. "--------------------- 
------------f]cha ",USING "1I1I1I":hen 
d¡:PRINT 
3,"---------------------- 


470 CLSII1:LOCATE IIl,1,2:PRINT 111."1 
NSERTE M PARA REGRESAR AL MENU." 


4S0 INPUTII3, "NoMBRE",name$(HENO):I 
F NAME$(HEND) "M" OR NAME$(HEND)="m 
" THEN 520 
490 CLSII1:FOR c=1 TO 5:PRINTII3, cam 
p$(c);":";:INPUTII3, fich$(hend.c):N 
EXT 
500 HEND=HEND+I:IF HEND>499 THEN GO 
To 520 
510 GOTO 450 
520 CLS:LOCATE 20,12:PRINT "SALVAND 
O NUEVO ARCHIVO. ESPERE" 
530 OPENOUT "direct" 
540 WRITEII9,hend:FOR nn-I TO hend:W 
RITE 119.name$(nn):NEXT nn 
550 CLoSEOUT 
560 OPENOUT "ARCHIVO":OPENIN "archi 
vo":N=I:WHILE N<CoM:FOR m=1 TO 5:IN 
PUT 119.,aS:WRITF «9.

i:NEXT M:
-
. 
1 :WEND 
570 CLOSE'IN:rOr, n=com TO 
1
nd:F[1R m 
=1 To 5:WRITE 119.fich$(n.m):f,ch$(f¡ 
.m)="":NEXT M:NEXT N:CLOfjlOLlr 


580 GOTO 130 
590 REM===- -====0 E B O U l-
-==-- 


600 CLS:FOR c=1 TO 5:PRItH " [ 
AMPO";C;:INPUT CAMP$(C):PRINT:NEXT 


610 CLS:LOCATE 24.1::PRINT"INSERTE 
DISCO PARA INICIALI ZAR " 
620 Cl 5111 : PR I NT 111." PULSE UNA 
TECLA PARA CONTINUAR." 
630 IF IN
EY$<)"" THEN 6
CJ 
640 IF IN
:EY$="" THEN 64(' 
650 CLS:OPENOUT "CAMPOS":FOR C-j TO 
5:WRITE 119,CAMP$(c):NEXT:CI OSE OUT 


660 SAVE "AMSCARO" 
670 REM====C R E A R L I M P I A 
R=== 
6S0 hend =1 
690 CLS:LOCATE 14.12:PRINT "OPE¡:;'ACI 
ON LIMPIAR EFECTUANOOSE. ESPE'Rr." 
700 OPENOUT "direct" 
710 WRITE 119,HEND.HEND.HEND 
720 CLOSEOUT 
730 OPENOUT "arch,vo":WRITE 119.FJCH 
$(I,I):CLOSEOUT:CLS:CLS III:GOTb 12n 


740 GOTO 120 
750 CLS 
760 LoCATE 24,12:PRINT "CONFIRMACIO 
N ?":PRINT 111," PUlSE S (S))I 
N (NO)" 
770 PUL$=UPPER$ (INf<EYS) : : IF PUI.$:'" 
S" AND PUL$()"N" THEN 770 
7S0 IF PUL$ "S" THEN GOTO 6S0 EL SE' 
GOTO 120 
790 REM===M O O 1 F I C A CID N E 
S 
800 CLSlll:IF HEND=1 THEN LOCATE 111. 
S,3:PRINTII1. "ARCHIVO VACIO. ":GOT 
O 140 
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810 CLS#3:LOCATE#3.14.9: INF'UT #3. "N 
OMBRE DEL TITULAR DE LA TARJETA",No 
mbre$:CLSlll:FOR N=I TO HFND:MOT=N:l 
F INSTR(UPF'ER$(name$(N).UF'PER$(nam 
bre$»<>O THEN 830 
820 NEXT:CLSII2:CLS IIl:LOCATE #1.
.2 
:PRINT #1. "NOMBRE DESCONOCIDO. NO 
AF'ARECE EN ARCHIVO. ":GOTO 810 
830 OF'ENIN "arehiva":FOR n 1 TO MOT 
-1:FOR m=1 TO S: INPUT 119.a$:NEXT:NE 
XT:FOR m=1 TO S:INF'UT #9.fieh$(MOT. 
m):NEXT M:CLOSEIN: CLS #3 
840 PRINT#3. ,,--------------------- 
------------fieha ";USING "II##",MOT 
;:PRINT 113,"----------------------- 


---------______II
 
, 


850 LOCATEII::',. 3. 2: F'RINTII3, "NOMBRE: ": 
:PRINT#3.USING "8<";NAME$(MOT):FOR <: 
-1 TO 5:LOCATE#3,3.e+2+2*e:PRINT#3. 
ca'T1p'lO (C) ,USING"
,":":", f leh$ (MOT, C): 
NE.T C:LOCAT
 #
.1.20;PRINT #3."--- 


-======
=========================== 


___ ___ 11. 
860 LOCATE 113.1.
:F'kINrIl3.CHR$(
43) 
870 PUL'=UF'F'ER$(IM EY$):IF F'UL'-"C" 
THEN 890 
880 IF PUL $ ,," THEN 870 ELSE 910 
890 LOCATE 1I
.1.7:PRINT#3,SF'ACE$(24 
01:LocnTF #
.3.2:PRINT 113. "NOMBRE: " 


900 I NF'UT tt3, NAME$ (MOT) 
910 FOR e=\ TO 5:ClS#I:PRINT 111." 
PUL SE e F'ARA CAMBIAR";" OTRA 
TECLA PARA CONTINUAR":LOCATE 113.1. 
C+¿*C+2:P
INT#3,CHR$(243) 
9
" F'UL$=UF'PER$ (INI:EY$) : IF PUL$="C" 
THrN 94(J 


SUBRUTINAS 


10.11 O 


Presentación y carga de 
archivos. 
Menú. 
Busca ficha y la presenta 
en pantalla. 
Carga las fichas y las 
guarda en el disco. 
Solicita y carga los campos 
espec
fjcados por el 
usuario. 
Limpia y crea los archivos 
del disco. 
Realiza modificaciones en 
las fichas. 
Lista el fichero. 
Hace un reset del 
ordenador tras pedir 
confirmación, 
Informa de que el archivo 
está lleno. 
Imprime la ficha 
encontrada. 
Efectúa la baja de una 
ficha. 
En el caso de que los 
ficheros no estén abiertos 
en el disco los abre, 
seguramente sólo será útil, 
cuando se corra el 
programa por vez primera. 


120-280 
290-420 


430-580 


590-660 


670-780 


790-980 


990-1150 
1160-1200 


1210-1230 


1240-1260 


1270-1380 


1390-1450 
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930 IF F'UL$="" rHEN GOTO 920 ELS[ 9 

O 
940 LOCATE #3,I.e+2+2*e:PRINT#3,SPA 
CE$(240):LOCATE#3,3,e+2+2*e:F'RINT#3 
.eamp't(C):":"::INPUT 1I:;,.fleh$(MOT,C 
) 
950 NEXT ,:CI S#I:PRINT #1, "MODIFICA 
NDO ARCHIVO.ESPFRE." 
960 OPENOUT "areh,vo":OPENIN "arehi 

o":FDR n=1 TO mat-l:FOR e 1 TO 5:1 
NPUT #9.a$:WRITE 119.a$:NEXT e:NEXT 
n:FOR e=1 TO 5: [NPUTII9.a$:WRITE #9. 
flch$(mat.,):NEXT e 
97n FOR n mat +1 TO hend-l:FOR e=1 
TO 5: JNF'lIT #9,a$:WRITE 119.a$:NEXT e 
:NEXT n:rl OSEIN:ClOSEOUT 
980 OF'ENOUT "D 1 RECT": WR I TE#9. HEND: F 
OR N=l TO HEND:WRITE 119.NAME$(N):NE 
XT N:CLOREOUT:GOTO 120 
990 REM======='===L 1 S T A R====== 


1000 CLS:IF HENO=\ THEN GOTO 800 


1010 OPENIN "ARCHIVD":FOR LIS=1 TO 
HEND-l 
J020 FOR C=1 TO 5: INPUT 119.ELEM$(C) 
: 
IEXT e 
, 0,0 el s: Cl S#?: PRINT#:O,. ,,---------- 
-----------------------ficha ";USIN 
G "#II#",LIS::PRINT #3,"------------ 


1040 LOCAT
II
,'.2:F'RINT#3."NOMBRE:" 
; :PRINT#3.USING "8,";NAME$(LIS) :FOR 
;"=1 TO 5:IOCATE#3,3,e+2+2*e:PRINT#3 
, eamp$ (C), USING"
,";":"; ELEM$ (C): NEX 
T C:LnCATE #3.1.20: 
¡('50 PRIN r #3." -------------------- 


1060 CLS#\:prnNT #1." 
E P PARA HlPRIMIR"." 
PARA RrGRES!'\R AL MENU"." 
TECLA F'ARA CONTINUAR OPCION" 
1 070 I F 1 N
:EY$< , "" THEN 1070 
1080 ¡:'UL$=UF'PER$ ( I NI..EY$) : I F F'UL$="" 
THE'N 10'180 
1090 IF PUL$="F-''' lHEN GOSUB 1:'4U 
110u lF f-'UL'IO="M" IHION LLUS
JN:GUILJ 
120 
1110 NEXT LI S 
11:;:0 CLOSEIN 
1130 CLS#I:PRINT 11\," FIN 
AL DE ARCHIVO"; "PULSE:. UNA TECLA 
PARA REGRESAR AL MENlI"." 
1 140 PUL$=INI:EY,\;: IF PUL$="" THEN 11 
40 
1150 GOTO 120 
1160 REM=---========F [ N-- - 


PUl.S 
PULSE M 
OTRA 


1170 CLS:LOCATE 27. 12:PRINT"CONFIRM 
ACION 
":PRINT #1." PULSE S (S 
1)/ N (NO)" :CLEAR INPUT 
1180 PUL$=UPPER$(INkEY$)::IF PUL$<
 
"S" AND PUL$<,'''N'' THEN 1180 
1190 IF PUL$<>"S" THEN GOTO 120 
1200 CALL o 
1210 REM====A R e H 1 V o L L ¡:- N 
o 
1220 CLS#I:LOCATE #1.1.::':PRINT #1." 
ARCHIVO LLENO.INICIALIZAR NUEVO OIS 
eO. 1I 
1230 GOTO 140 


· ríe Oro 


1240 REM=O P CID N 1 M P R E S O 
R A= 
1250 PRINT#8. "NOMBRE: ": :F'RINT#8.USI 
NG "&":NAME$CENCONT):FOR <:=1 TO 5:F 
RINTII8,eamp$CC) ;USING"!,"; ": ":fi,h$( 
eneant.C):NEXT C 
1260 RETURN 
1270 REM===== B A J A S -======== 


1280 CLSlll:F'RINT #1.."INSERTE :M' p 
ara anular apeian EFETUAR BAJA" 
1290 IF HEND=1 THEN GOTO 800 
1300 CLS#3:LOCATEII3,14,9:INPUT #3," 
NOMBRE DEL TITULAR DE LA TARJE1A":N 
ambre$: IF NOMBRE$='''' THEN GOTO 1280 
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1310 IF NOMBRE$="M" OR NOMBRE$="m" 
THEN 120 
1320 FOR N=1 TO HEND:ENCONT N:IF IN 
STR(UPPER$(name$CN»).UPPER$(nambre$ 
))<>0 THFN 1340 
1330 NEXT:CLS #1:LOCATE #1.2.2:PRIN 
T #1, "NOMBRE DESCONOCIDO. NO AF'ARE 
CE EN ARCHIVO":GOTO 1300 
1340 OPENIN "arehiva":OPENOUT "ARCH 
IVO":FOR N=1 TO ENCONT-l:FOR C=1 TO 
5:INPUTII9,A$:WRITE#9.A$:NEXT e:NEX 
T n 
1350 FOR e-l TO 5: INPUT #9,a$:NEXT 
e:FOR n-eneant+l TO hend-l:FOR e=1 
TO 5:INF'UT #9,a$:WRITE #9,a$:NEXT e 
: NEXT n 
1360 CLOSEOUT:CLOSEIN 
1370 hend hend-l:0PENOUT "dlreet":W 
RITE 119.hend:FOR n=1 TO eneant-l:WR 
ITE#9.name$(n):NEXT:FOR n eneant TO 
hend:name$(n)=name$(n+l):WRITE #9. 
name$(n):NEXT n:CLOSEOUT . 
1380 Gnrn 130 
1390 REM
=== C R F A F 1 C H E R O 


1400 IF DEHR"146 THE:.N RESUME 
141" hend=1 
1420 OPENOUT "CA
1POS":FOR e=\ TO 5: 
WRITE#9.eamp$(e):NFXT:CLOSEOUT 
143u OPFNOUT "DlkECT":WRITE #9.hend 
:WRITE#9.hend:WRITE#9.hend:CLOSEOUT 
1440 PEN (t 
1450 RESU
IE 


Para que lus dedo. 
no reollCen el frabojo duro, M H. AMS. 
TRAD lo hace DOr /1. Todos los lisiados que induyon 
esJe logol'Jpo re encuentran a lu dfSpos¡áón en un (05- 
selle mensual, solICilanoslo 



iEXCLUSIV A MUNDIAL! 


La Revista de ordenadores de mayor venta en toda Europa 
¡SE PUBLICA DESDE AHORA EN ESPAÑA, EN fORMA DE CASSETTE! 


Sí, ya está confirmada la sensacional noticia. Muy 
pronto estará en los quioscos de toda España una 
selección de los mejores juegos y utilidades 
publicados por la prestigiosa Revista británica 
«YOUR COMPUTER», editados en cassette de alta 
calidad y con instrucciones en castellano, 
El prestigio alcanzado por Y our Computer, tanto 
en Inglaterra como en España y otros países, se 
debe, de una formq muy especial, a la gran 


Si no encuentras la casset1e de 
"Your Computen) en tu quiosco 
o tienda de informática, solicítala 
a nuesfras oficinas: 
SINTAX, S. A. 
"YOUR COMPUTER» 
Paseo de la CClStellono, 268 
28046 Madrid 
EnvIo tus señas completas, 
teléfono y marca de ordenador 
e incluye talón bancario, o 
remite Giro Postal por el 
importe. 
No te cobrar emos gostos por el 
envio. 
Si pr efieres pagar contra 
reembolso, entonces incluye, 
junto a tu pedido, dos sellos 
de 50 ptas. cada uno para 
gastos de envio. 


T AMBIEN DISPONIBLE 
PARA 
, COMMODORE 
 y 
SPECTRUM 48, PLUS, 128; 


calidad de los programas que publica, la mayor 
parte de ellos en Código Máquina, y con la 
utilización de rutinas y técnicas de programación 
muy depuradas. 
Ahora, a un precio inmejorable, podéis tener 
acceso a estos programas, evitandoos la difícil 
tarea de tecle arios en vuestro ordenador. 
iY cada mes estará en la calle una nueva cinta! 


'f'UR 
O P 
D 
EL CORAZON DE LA PRIMERA REVISTA EUROPEA DE ORDENADORES 
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IGUIENDO 
CON EL FLAG 


Siempre hay más de una manera de hacer las 
cosas. Este viejo tópico puede aplicarse 
perfectamente al modo que un programa decide 
entre distintos caminos en lenguaje máquina. 
Puede usarse algo más que el Carry flag. 


a última vez nos dedicamos a estu- 
diar el Carry flag y en particular a utilizarlo 
con la instrucción CP para crear bucles, me- 
IÚS, etc.. 
Sin embargo , el Carry flag no es el único flag 
del Z80: hay otros seis más. El que nos intere- 
sa en este momento es el flag de Cero. 
Realmente el nombre de flag de Cero nos 
dice lo que hace, puesto que se activa cuan- 
do la «respuesta» a cualquier operación en 
código máquina es cero. 


Program.as uno y dos 
Por ejemplo: no sólo dejará un O en el re- 
gistro A, sino que activará el flag de Cero al 
decirnos que ése es el resultado de la opera- 
ción. Ambos dejarán cero en A y activarán el 
flag de Cero. 
Resumiendo, si un ADD o SUB dejan cero 
en el registro A, el flag Cero se activa. Si el 
resultado no es cero, el flag Cero está desac- 
tivado. 
Pensándolo bien, todo está dispuesto a la 
inversa: Cuando el resultado «es)) cero se ac- 
tiva el flag Cero -a uno. Y cuando el resulta- 
do «no es)) cero, se desactiva el flag Cero- a 
cero. ¡Uno cuando es cero, y cero cuando no 
lo es! 
No nos preocupemos más, los verdaderos 
valores de los flags no nos interesan realmen- 
te. Todo lo que necesitamos conocer son las 
condiciones que los activan y desactivan. En 
este caso del flag Cero se activa cuando el re- 
sultado de la operación es cero y se desacti- 
va cuando no lo es. 
No todas las instrucciones afectan al flag Ce- 
ro, pero pronto usaremos algunas que lo ha- 
cen. 


I lD A, &ff 
ADD A, &01 
RET 
Programa 1 


I lD A, &DF 
SUB &DF 
RET 
Programa 2 
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Probablemente recordará que teníamos un 
par de instrucciones de salto basadas en el 
Carry flag JP C y JP NC. 
Bueno, pues tienen su correspondiente par 
de instrucciones de salto, implicando al flag 
Cero. 
JP Z (opcode&CA) 
realiza el salto si el flag Cero ha sido activa- 
do, y 
J P NZ (opcode&C2) 
lo hace cuando no lo está, o sea cuando está 
desactivado. 


Programa tres 
Echemos un vistazo al Programa tres. No 
nos presentará ningún problema, ya nos lo ha- 
bíamos encontrado dos veces más anterior- 
mente. 
Recordará que íbamos incrementando el re- 
gistro A y saltando hacia atrás para imprimir 
el código Ascii correspondiente hasta que dá- 
bamos la vuelta al cuentakilómetros y así ac- 
tivar el Carry flag. 
No obstante, el flag Cero se activará al mis- 
mo tiempo ya que el último ADD A, 1 suma 
1 al255 (&FF) en el registro A, dándonos ce- 
ro. 


Programa cuatro 
Esto quiere decir que podríamos reescribir 
el Programa tres con un J P NZ, &3002 en lu- 
gar del JP NC, &3002 -y esto es lo que ha- 
cemos en el Programa cuatro. 
Aquí seguimos realizando el bucle hasta que 
el ADD A, 1 activa el flag Cero cuando A con- 
tiene &FF. Entonces salimos del bucle comple- 
tamente y RET. 
No nos quedemos con la idea de que los 
flags Carry y Cero están conectados de algu- 
na manera. En el ejemplo anterior es precisa- 
mente una coincidencia que ambos se activen 
al mismo tiempo -esto no siempre es así. 


Programa cinco 
Para probarlo, veamos el Programa cinco. 
Utilizaremos INC A (&3C) para incrementar 
A en 1 en lugar del ADD, l. Otra vez es idén- 
tico al Programa cuatro, pero un byte más cor- 
to. 


1 


J 


C\ 
I
 


Como verá, la ideo es buena. Sin embargo, 
si, como en el Programa seis, reemplazamos 
el JP NZ con JP NC -que haría que los flags 
Carry y Cero estuvieran relacionados- ocu- 
rre un desastre. . 
la razón es que INC A activa o desactiva 
el flag Cero dependiendo del resultado del in- 
cremento de A a uno. Sin embargo, no afec- 
ta en absoluto al Carry flag. 
Queremos decir que el Carry flag no se ac- 
tiva cuando A se incremento de 255 a O. Por 
lo tanto, el bucle continúa haciéndose y, efec- 
tivamente escribe CHR$(l), CHR&$(2) y así su- 
cesivamente. 


. ' ]1 :W[
 [ 1 ]
I I ];,lI[ I ] I H 
3000 3E 20 
3002 CD 5A BB 
3005 C6 01 
3007 D2 02 30 
300A C9 
ProgranJa 3 


J,',' 11
,',¡1111 [(IJ., 
lD A, &20 
CAll CharQut 
ADD A,l 
JP NC, &3002 
RET 
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No obstante, los códigos Ascii por debajo 
de 32(&20) son códigos de control, que, co- 
mo sabemos por el Manual del Usuario, pro- 
ducen algunos efectos bastante «sui gene- 
ris». 
En lo práctico, nuestra pantalla se bloquea- 
rá: nuestro micra se ha «colgado», Sin em- 
bargo, no se ha dañado sólo hoy que hacer 
un reset o lo máquina paro recuperar el con- 
trol. Desafortunadamente, haciéndolo así, per- 
deremos cualquier programa que esté en lo 
memoria -en nuestro coso ha sido el Hexer, 
el cargador hexadecimal. 


DIREC ti . ' . .TtI. I 
3000 3E 20 
3002 CD 5A BB 
3005 C601 
3007 C2 02 30 
300A C9 
Programa 4 


.f',fJlTtT;r.
 
LD A, &20 
CALL CharQut 
ADD A,l 
JP NZ, &3002 
RET 



) 


Programa seis 
Nuestro consejo es que no ejecute el Pro- 
gramo seis hasta el final de lo sesión, cuando 
esté preparado paro parar de cualquier ma- 
nero... Desde luego demuestra el hecho de 
que los flags Carry y Cero son independien- 
tes de uno manero que no olvidaremos. 
Realmente, o pesar del evidente error el Pro- 
gramo seis, posee uno atractiva sutileza. Da- 
mos por supuesto que el Carry flag está de- 
sactivado cuando metemos el programa. 
Piénselo. Si cuando ejecutamos el progra- 
mo -a través de Hexer o directamente des- 
de CALL &3000- el Carry flag yo estuviera 
activado, se quedaría así durante las !res pri- 
meras instrucciones. 
Como hemos dicho, las instrucciones LDs no 
afectan al Carry flag, así que LD A, &20 de- 
jará el Carry activado, lo mismo que 01 hacer 
la llamada CharQuI. Y, como hemos mencio- 
nado, INC A no le afecta tampoco. 


;di,o 
. 
rn:' In' 
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Lo cual quiere decir que cuando alcancemos 
el JP NC, no haremos el salto, puesto que 
Carry está activado desde el principio. T en- 
dremos que sacar nuestra rutina por la vía del 
RET final, escribiendo precisamente un espa- 
cio (Ascii&20). 
En la práctica esto no ocurre. Cuando en- 
tramos en la rutina, el Carry está des activa- 
do, y permanece así mientras no le afecte nin- 
guna instrucción. Por lo tonto, el J P NC se rea- 
lizo siempre y produce un crash. Sin embar- 
go, en el código máquina, es incorrecto supo- 
ner cual será el estado que tendrá un flag en 
particular. Hacerla así provoco o menudo 
errores difíciles de encontrar en los programas. 
Así que, en el Programo seis, no debemos 
esperar que se desactive el Carry, debemos 
hacerla nosotros. Estaría bien que pudiéramos 
hacerla con uno sencillo instrucción al zao. De- 
safortunadamente, no existen instrucciones se- 
mejantes. 
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MNEMONICOS 
LD A,&20 
CALL CharOut 
INCA 
JP NZ, &3002 
RET 


1 . CCION OPCODE 
3000 3E 20 
3002 CD 5A BB 
3005 3C 
3006 C2 02 30 
3009 C9 
Programa 5 
De todas formas, podemos desactivar el 
Carry con: 
ADD A, O (C6 00) 
Después de todo no podemos dar la vuelta 
al cuentakilómetros sumando cero a cualquier 
cosa ¿verdad? Y ADD afecta al Carry flag, así 
que en este caso debe ser desactivado. La ven- 
taja es que el contenido del registro A perma- 
nece sin cambiar, piénselo. 
De este modo, el afecto ADD A, O, es que 
nos desactiva el Carry flag, sin afectar el con- 
tenido del registro A. 
Bien, ya sabemos como desactivar el Carry 
flag cuando queramos, pero ¿cómo se activa? 
Bueno pues para este caso hay una instruc- 
ción que nos viene como anillo al dedo SCF 
(opcode&37). SCF significa Set Carry Flag (ac- 
tivor el Carry flag). 


(I]T:1I{t[. N · PCOD 
3000 3E 20 
3002 CD 5A BB 
3005 3C 
3006 D2 02 30 
3009 C9 
Programa 6 


. NEMONICOS 
LO A, &20 
CALL CharOul 
INC A 
j P Nc, &3002 
RET 


Programa siete 
El Programa siete es un ejemplo trivial del 
uso de estas ideas. 
Como podemos ver, tiene dos saltos condi- 
cionales que hace que se vuelva al comienzo 
del programa. Hemos utilizado ADD A, O an- 
tes del primero y SCF antes del segundo para 
manipular las cosas de forma que no se ha- 
gan los saltos. 
Vamos rectos hacia CALL CharOut, que nos 
produce un sonido, Si conseguimos que algu- 
no de nuestros saltos condicionales «salte» 
erróneamente, o si activamos cuando debe- 
mos desactivar, quedamos atascados en un 
bucle sin fin. 


Programa ocho 
El Programa ocho muestra otro ejemplo más 
elaborado. Si lo conseguimos completamen- 
te lo veremos como un sendero demasiado tor- 
tuoso, debido a que por el modo en que he- 
mos tratado el Carry flag, no aparece nada 
escrito. 
¿Podemos alterarlo de forma que 
aparezcan en pantalla dos asteriscos 
(código Ascii &2A)? 
Bueno, volviendo al flag Cero. La última vez 
vimos como la instrucción CP n, aunque no al- 
tera el registro A, activa y desactiva el Carry 
flag, como si se hubiese realizado un SUB, 
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Carry esta activado si A < n. 
Carry está desactivado si A + = n. 
No nos sorprenderá enterarnos de que CP 
n también afecta al flag Cero: 
Si el byte del registro A es igual a n, se acti- 
vo el flag Cero. 
Si hay dos bytes diferentes, se desactiva el 
flag Cero. Es lo único que podemos esperar. 
Si los dos bytes tienen el mismo valor, cuando 
se hace el CP n simulando A-n, la respuesta 
deberá ser cero, así que se activa el flag Ce- 
ro. Si, en otra pasada, los bytes cambian, la 
respuesta no es cero y el flag se desactiva. 


Programa nueve 
Podemos usar esto para «exigir» la entrada 
de cierto caracter desde el teclado, como en 
el Programa nueve, donde esperamos un as- 
terisco: 
El programa trabaia comparando el caroc- 
ter de entrada con el código Ascii de un aste- 
risco, Si lo es, el flag Cero se activa e ignora 
el salto, lo escribirá y devolverá el control. 
Si no es un asterisco, las códigos serán dife- 
rentes y el flag Cero se desactivará. Entonces 
el salto vuelve al principio y pedimos otro ca- 
rocter desde el teclado. 
Hasta ahora, cuando usábamos CP, hacía- 
mas una comparación entre el registro A y el 
número especificado. Además, podemos com- 
parar el registro A con cualquier otro de nues- 
tros registros sencillos, que nos muestro la T 0- 
bla 1. La anotación de esta forma de instruc- 
ción es CPr, donde r es un registro de ocho 
bits, Por ejemplo, CP B compara el byte del 
registro A con el que hay en B haciendo un 
falso A-B y activando el flag correspondien- 
te; el contenido de ambos registros 
queda sin cambiar. Fíjese que el registro 
especificado se resta del registro A. 
De nuevo, si A es igualo mayor que B, se 
desactiva el Carry. Si A es menor que B, se ac- 
tiva. Además, si los bytes de A y B son igua- 
les, se activa el flag Cero, en otro caso está 
desactivado. 


t ] I : 
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13000 3E 07 
I 
002 C6 00 
3004 DA 00 30 
3007 37 
3008 D2 00 30 
300B CD 5A BB 
300E C9 
Programa 7 
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lD A, 7 
ADD A, O 
j P e, &3000 
SCF 
jp NC, &3000 
CALL CharOut 
RET 


3000 
3002 
3004 
3007 
300A 
300B 
300E 
3011 
Programa 8 


LD A, &2A 
ADD A, O 
jp NC, &300A 
CALl CharOut 
SCF 
JP C, &3011 
CAll CharOut 
RET 


3E 2A 
C600 
D2 OA 30 
CD 5A BB 
37 
DA 11 30 
CD 5A BB 
C9 


'] 


I IIRECCION OPCOD 
,3000 CD 18 BB 
3003 FE 2A 
3005 C2 00 30 
3008 CD 5A BB 
300B C9 
Programa 9 
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CALL Charin 
CP &2A 
jp NZ, &3000 
CALL CharOut 
RET 


r IIRECCION OPCODE 
3000 06 00 
3002 3E 2A 
3004 CD 5A BB 
3007 04 
3008 3E 08 
300A B8 
300B C2 02 30 
300E C9 
Programa 10 
Programa diez 
Vamos a usar esta capacidad para compa- 
rar nuestro registro de ocho bits al hacer el 
Programa diez. Aquí nuestra tarea es escribir 
un número fijo de asteriscos-ocho en este ca- 
so. 
Hemos utilizado el registro B como un con- 
tador. Inicialmente le damos un valor cero con 
LD B,O y entonces escribe un asterisco cargan- 
do A con &2A y llamando a CharOut. Incre- 
mentamos a continuación B, de este modo se 
mantiene al tanto del número de asteriscos es- 
critos. Entonces cargamos A con 8, número to- 
tal de asteriscos, y comparamos el registro B 
con A. 
Si los dos registros no son iguales -o sea, 
si el flag Cero no está activado- no se han 
escrito todavía los ocho asteriscos así que sal- 
taremos atrás a &3002, volviendo a cargar A 
con &2A, llamando a CharOut y así sucesiva- 
mente. 
Si, en cambio, hemos alcanzado nuestro lí- 
mite, se activa el flag Cero y no se realiza el 
salto, sencillamente devolvemos el control. 


, NEMONICOS 
lD B,O 
LD A, &2A 
CALL CharOut 
INC B 
LD A, &08 
CP B 
jp NZ, &3002 
RET 


Programa once 
Realmente, el programa es bastante tortuo- 
so, Hay maneras más eficaces de imprimir un 
número de asteriscos. Solamente lo hemos ne- 
cesitado para introducir la instrucción CP r. El 
Programa once presenta una forma alterna- 
tiva para hacerla, El truco es la cuenta atrás 
desde el número que queremos usando DEC B. 
Cuando alcancemos cero, se activa el flag 
Cero, y en cualquier otro caso saltamos atrás 
y escribimos otro asterisco. En efecto, B actúa 
como una primitiva variable de bucle o con- 
tador. 
Podemos utilizar esta idea para crear bucles 
anidados usando el registro B para el bucle 
interno y otro para el externo. 


Programa doce 
El Programa doce se basa en esta idea pa- 
ra sacar en pantalla un triángulo de asteris- 
coso 



k 
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Vamos a hacer ocho líneas, la primera con 
ocho asteriscos, la segunda con siete y así su- 
cesivamente, Cada vez que gire el bucle ex- 
terno tendremos una línea de asteriscos-el bu- 
cle interno imprime el número de ellos que ne- 
cesitamos en cada línea, 
Usamos C para apuntar el número de líneas 
-de ahí el inicializado con LO (&08- y B pa- 
ra contar el número de asteriscos. Piense que, 
después de haberlo utilizado como contador, 
C rebaja en uno su valor cada vez que gira 
el bucle exterior donde también necesitamos 
hacérselo a B. Nuestra segunda instrucción, 
al principio del bucle externo, es por lo tanto, 
LD B, C. . 
Si nos fijamos en el final del programa, ve- 
remos el fin del primer bucle: 


3016 
3017 


OD 
C2 02 30 


DEC C 
JP NI, &3002 


Regresa al principio del bucle exterior, y des- 
pués de LD B, C cargamos el registro A con 
el código Ascii del asterisco (LD A&2A), En- 
tonces llegamos allozo interior: 


3005 CD 5A BB CALL CharOut 
3008 05 DEC B 
3009 C2 05 30 JP NZ, &3005 


.. 


11 


Como pronto veremos, dibujo «B asteris- 
COS», Ahora el volar de B disminuye uno co- 
da vez que se hace el bucle exterior yo que 
el volar lo recibimos por medio del registro C 


DI RE L l' 
 ';".' I 
3000 06 08 
3002 3E 2A 
3004 CD 5A BB 
3007 05 
3008 C2 04 30 
300B C9 
Programa II 
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LD B,8 
LD A &2A 
CALL CharQut 
DEC B 
JP NZ, &3004 
RET 


---. 
i 


CP A BF 
CP B B8 
CP C B9 
CP D BA 
CP E BB 
CP H BC 
CPL BD 


IIRECCION OPCODE 
3000 OE 08 
3002 41 
3003 3E 2A 
3005 CD 5A BB 
3008 05 
3009 C2 05 30 
300C 3E OA 
300E CD 5A BB 
3011 3E OD 
3013 CD 5A BB 
3016 OD 
3017 C2 02 30 
301 A C9 
Programa 12 


NEMONI..... 
LD C, &08 
LD B, C 
LD A, &2A 
CALL CharQut 
DECB 
JP NI, &3005 
lD A, &OA 
CAlL CharQut 
LD A, &OD 
CAll CharQut 
DEC C 
J P NZ, &3002 
RET 


Tabla 1: CP r 



i 


(LO 8, C) y C se decrementa por el DEC C 01 
final del bucle exterior en coda vuelto, Esto 
quiere decir que cado una de las líneas tiene 
un asterisco menos que la anterior nos do un 
triángulo efectivamente. 
Cuando C llega a cero -después de dibu- 
jar ocho líneas- el programa sale o través de 
JP NZ, &3002 del bucle exterior y hace RET. 
Fortuitamente los líneas entre los JP NZs de 
los bucles interior y exterior, 


300C 
300E 
3011 
3013 


3E OA 
CD 5A BB 
3E OD 
CD 5A BB 


lD A,&OA 
CAll CharOut 
lD A,&OD 
CALL CharOut 


son precisamente los que producen un salto 
de línea seguido de la vuelta de corro, ase- 
gurándose que nuestras líneas estén separa- 
das. Vamos a intentar cambiar cualquiera de 
los dos y veremos que poso. (Recuerde que 
cambiarán nuestros saltos). 
Bueno, creemos que yo es bastante por es- 
to semana. Sin embargo, le dejamos meditan- 
do dos cosas. 
Si sólo estamos obteniendo el volar de B des- 
de e ¿por qué no nos preocupamos 
de e en absoluto? En realidad, es fácil, pe- 
ro es el tipo de cosos que se nos pueden ocu- 
rrir después que nos hemos entumecido 01 es- 
tor durante varias horas programando en có- 
digo máquina, 
Paro el final le hacemos uno pequeño peti- 
ción más. Intente dar lo vuelto al triángulo, con 
un asterisco en lo porte superior y ocho en lo 
base, 


MICROHOBBY AMSTRAD SEMANAL 
LE OFRECE AHORA SUS PROGRAMAS 
YA GRABADOS, PARA QUE VD. 
NO TENGA QUE TECLEARLOS 


Todos los programadores y aficionados a la microinformática sabemos lo tedioso y 
propenso o errores que resulto el teclear un listado de un programo. Para facilitar tu 
labor 01 máximo y que no tengas que estor horas sobre el teclado de tu ordenador 
tratando de descifrar incomprensible mensajes de error, AMSTRAD SEMANAL te ofrece 
cada mes los programas publicados de los cuatro números correspondientes en uno cinta 
de cassette, sólo por 675 ptas. (sin más gastos por envío). 
Envíanos con la menor demora posible, el cupón correspondiente. 


Para que tus dedos 
no rea/¡'cen ellrabaío duro, M. H. AMSTRAD 
lo hace por ti, Todos los listados que incluyan este lo. 
gotipo se encuentran a tu disposición en un casselfe 
mensual, solidtanos/o, 
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COMANDANTE ZORlTA, 13 
28003 MADRID 


TElS.: (91) 233 07 35 
(91) 2330781 


DISKETIE 3" 


1.050 pta,. 


AMSTRAD 464 Color 
AMSTRAD 6128 Color 
INTERFACE DISCO 5.25" 
CINTA C-15 ESPECIAL ORDENADOR 


84.900 pta.. 
117.500 p ta,. 
5.900 ptas. 
85 pta!. 


AMSTRAD 464 Verde 
AMSTRAD 6128 Verde 


59.900 pto!. 
99.900 pta!. 


SOFTWARE ENTRETENIMIENTO (CASSETTE) 
COMBAT LYNX 1.925 pta.. 
DEAD PIT 1.925 p'a!. 
BEACH HEAD 2.395 pta,. 


ALlEN-8 
KNIGHT LORE 
JUMP JET 


1.875 pta.. 
1.875 pta!. 
2.695 pta,. 


EXPLODING FIST 
GREMLlNS 
DECATHLON 


2.095 pto!. 
2.095 p'a.. 
1.920 p'a. 


LIBROS 
CURSO AUTODIDACTICO BASIC AMSTRAD 
(Contiene manual y dos cassettes) 2.695 pta,. 
HACIA LA INTELIGENCIA ARTIFICIAL 1.300 p'O!. 


40 JUEGOS EDUCATIVOS 1.800 pta! 
MUSICA y SONIDO PARA AMSTRAD 1.300 ptas. 
PROGRAMANDO CON AMSTRAD 1.900 pta. 


Tu pedido lo puedes recibir contra reembolso (libre de gaslos), llamando o los teléfonol: (91) 233 07 35 y (91) 233 07 81. 


MANTENGA SU' 
AMSTRAD COMO 
NUEVO CON ESTA 
PRACTICA FUNDA. 


POR SOLO: 2.250 ptas. 


-También disponemos de fundas para: 
-SEIKOSHA SP-800 ...,......... 1.100 ptas. 
-SEIKOSHA SP-1000 ............ 1.100 ptas. 
-SPECTRUM 16/48 ............. 330 ptas. 
-SPECTRUM PLUS ,............. 460 ptas. '1 
-COMMODORE 64 y VIC 20 . . . . . 680 ptas. 
-SAGA 1 EMPEROR ............ 550 ptas. 


.., 


..z..J.. .: 



 


- -,

 - ",' 


INTERESANTES CONDICIONES PARA DISTRIBUIDORES 
CU PON DE PEDI DO 
Recorte o copie este cupón y envielo hoy mismo a: 
MICROSOFT-HARD, Apartado 23.406, 08080-BARCELONA, o bien realice su pedido (firma) 
por teléfono llamando al (93) 348 04 07 . (Tardes de 5 a 9). Gastos de envío: 150 ptas. 
Deseo recibir a vuelta de correo. . . . . . . . . . funda(s). 
Marca: .............................. Modelo: 464-664-6128. Monitor: verde-color 
-Contra reembolso: -Talón adjunto a MICROSOFT-HARD, SL: 
(MARQUE CON UNA «X» LAS OPCIONES DESEADAS) 
-NOMBRE Y APELLIDOS ..........................................,...................... 
-DOMICILIO .........,.........,....................................................... 
-LOCALIDAD .........................,...,................., CODo POSTAL ............ 
-PROVINCIA ....,............................................................,......... 



uscríbete... 
y uno de estos tres 
sensacionales iuegos 
será tuyo... ¡GRATIS! 


M.H. AMsrRAD te da a elegir entre tres de los meiores iuegos existentes en el mercado 
para AMSTRAD¡ COMBAr L YNX, DALEY rHOMPSON'S DECArHLON y BEACH HEAD, cualquiera 
de los cuales puede ser tuyo solamente con suscribirte a nuestra revista. Aprovecha esta 
ocasión excepcional y ahorra 2. 700 pesetas (precio de venta del programa) 
más el importante descuento que se produce en el 
precio de cada número, por el hecho de ser 
suscriptor. Disfruta de las ventaias que supone 
recibir cómodamente tu revista a domicilio y de la 
seguridad de tener tu e;emplar aunque se haya 
agotado en los quioscos. 


l E. t b I . t ' d .. . 
nVlanos u o e In e suscnpclon y no 
le des más vueltas, el número de juegos para 
I regalos de suscripción, aunque grande, es li- 
mitado, y estos se podrían agotar mientras lo 
I estás pensando. 
f 
I 


BEACH HEAD producido por U.S. GOLD es uno mi- 
sión de desembarco en una costa fuertemente defendida 
por las fuerzas aeronavales enemigas. Debes conducir tu 
flota hacia la bahía y repeler el ataque aéreo, si lo consi- 
gues tu siguiente obstáculo será una flotilla de destructo- 
res y acorazados, superada la cual desembarcarás tus ano 
fibios en las arenas de lo bahía, estos deben superar las 
defensas costera s y llegar a la fortaleza que es el objetivo 
final. 


COMBAT L YNX simula una misión de defensa de unas 
bases atacadas por una división acorazada, Disponemos 
para enfrentamos a ellos de un modernísimo helicóptero. 
Este juego podría incluirse dentro del catálogo de los de 
estrategia, y su complejidad le dota de una gran dosis de 
adicción y belleza, 


DALEY THOMPSON'S DECATHLON con este jue- 
go OCEAN enciende la llama olímpica y te reta a superar 
los récords de los campeonatos de todos los tiempos, el 
decothlon se desarrolla en dos días de competición y se 
compone de las siguientes pruebas: 
PRIMER DIA: 100 m lisos, salto de longitud, lanzamien- 
to de peso, salto de altura y 400 m lisos, 
SEGU N DO DIA: 110m vallas, lanzamiento de disco, sal- 
to con pértiga, lanzamiento de jabalina y los 1.500 m. 
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Utiliza el cupón 
adjunto a la revista 
o suscribete por 
teléfono 
(91) 733 50 12 
(91) 733 50 16 
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Con el objeto de fomentar las rela- 
ciones entre los usuarios de AMSTRAD, 
MERCADO COMUN te ofrece sus pági- 
nas para publicar los pequeños anuncios 
que relacionados con el ordenador y su 
mundo se ajusten al formato indicado a 
continuación. 
En MERCADO COMUN tienen cabida, 
anuncios de ventas, compras, clubs de 
usuarios de AMSTRAD, programadores, 
y en general cualquier clase de anuncio 
que pueda servir de utilidad a nuestros 
lectores. 
Envíanos tu anuncio mecanografiado 
a: HOBBY PRESS, S.A. 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
¡ABSTENERSE PIRATAS! 


................. 


Quisiera establecer contacto con 
usuarios de Amstrad en Granada, 
para cambiar listados e ideas. 
Preguntar por Miguel llamando el 
Tel. 22 36 66 o bien escribiendo a 
Cuesta / Escoriaza, 9 - l. o B. 
Granada. 


................. 


De particular a particular 
Amstrad. Por reciente viaje a 
Inglaterra, vendo 12 de los 
mejores juegos del mercado inglés 
a precio español. Entre ellos el 
James Bond 007, A view to a kill, 
Brian Bloodaxe de los Monthy 
Pitan, Danger Mouse, Defender 
(versión Amstrad del clásico BBC) 
Dragon's Gold y el famoso Rally 
11. Llamar al (96) 332 12 72 de 
Valencia y preguntar por José. 
José Feo. Sanfeliú Gimeno. Barón 
de Cárcer, 32, 8. o - 15. a 46001 
Valencia. 


1/ l' IT,- 
,-'-D" J 


Ordenadores personales) de gestión 
Aplicaciones para arquiteclura 
. Arm[rael · Dragón 
. Sinclair . Impresoras 
. Commoelore . rvlollilore, 
· Philips · Periféricos 
. Callon . Libros 
· S p e e 1 r a " 1 el e o · Revistas 

('n imos a pro' inci31ii 
CI Barq/lillo. 15. 
Teléfono: (91) 232 5737. Madrid. 


Por cambio de ordenador 
vendo los siguientes programas a 
600 ptas. cada uno: Rocky, Pole 
position, Decathlon, Gremlins, 
Knight Lore y algunos otros. Todos 
son originales. Mario Garda. Villa 
Begoña, 6 - 4. o Izq. Haro (La 
Rioja). (941) 31 14 45. 


................. 


Vendo Amstrad 464 fósforo 
verde por 35.000 ptas. Está como 
nuevo (2 meses). También 
vendería 10 programas de juegos 
a 500 ptas. cada uno. Entre ellos 
tengo Rocky, Knight Lore y 
Combate Libre. Maite Uñarte 
Murua. Apdo. 1.582. Bilbao. 


COLABORADORES: 


Si eres poseedor de un Amstrad, tienes 
conocimientos de programación en Sasic u 
otros lenguajes y te sientes capacitado 
poro escribir acerco de un determinado 
temo directamente relacionado con el 
mundo de Amstrad, envíanos uno corto 
mecanografiado, indicando los siguientes 
datos: 
Edad 
nombre y dirección 
teléfono de contacto 
relación de tus conocimientos 
lenguaje que dominas 
Se valorará el conocimiento del inglés. 
Dirigirse a: 
C/ La Granja, s/n. Polígono Indus- 
trial de Alcobendas (Madrid) indi- 
cando claramente en el sobre 
AMSTRAD SEMANAL 


Cambio programas Amstrad, 
sólo comerciales, más de 100 
títulos, entre ellos últimos éxitos. 
The Way of Exploding Fist, 
Gremlins, copiones, utilidades, etc. 
E. Valderas Fdez. Apdo. 41. 
Puertollano (Ciudad Real). 


................. 


GANA 100.000 PESETAS CON 
MICROHOBBY AMSTRAD SEMANAL 


Porque pretendemos que AMSTRAD SE- 
MANAL sea también vuestro revista, hemos 
abierto una sección en la que se publicarón los 
mejores programas originales recibidos en nues. 
tra redacción, Vosotros seréis los encargados de 
realizar estas páginas, en las que podréis apor- 
tar ideas y programas interesantes para otros 
lectores. 
Las condiciones son sencillas: 
- Los programas se enviarán a AMSTRAD 
SEMANAL en una cinta de cassette, sin protec- 
ción en el software, de forma que sea posible 
obtener un listado de los mismos, 
- Cada programa debe ir acompañado de 
un texto explicativo en el cual se incluyan: 
- Descripción general del programa. 
- Tabla de subrutinas y variables utilizadas, 
explicando claramente la función de cada 
una de ellas. 
- Instrucciones de maneio. 


- Todos estos datos deberán ir escritos a má. 
quina o con letra clara para mayor comprensión 
del programa. 
- En una sola cinta puede introducirse más 
de un programa. 
- Una vez publicado, AMSTRAD SEMA. 
NAL abonaró al autor del programa de 
15.000 a 100.000 pesetas, en concepto de 
derechos de autor. 
- Los autores de los programas selecciona- 
dos para su publicación, recibirán una comuni- 
cación escrita de ello en un plazo no superior 
a dos meses a partir de la fecha en que su pro- 
grama llegue a nuestra redacción. 
- AMSTRAD SEMANAL se reservo el de. 
recho de publicación o no del programa. 
- Todos los programas recibidos quedorán 
en poder de AMSTRAD SEMANAL. 
- Los programas sospechosos de plagio se. 
rán eliminados inmediatamente. 


¡ENVIANOS TU PROGRAMA! 
Indicando claramente en el sobre: 


AMSTRAD SEMANAL 
a HOBBY PRESS, S. A. La Granja, n. o 8. PoI. Ind. Alcobendas (Madrid) 
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SOLICITUD DE CINTAS DE PROGRAMAS Y NUMEROS ATRASADOS 
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o Deseo recibir en mi domicilio, al precio de 675 ptas. cada una, las siguientes cintas con los programas 
publicados por Microhobby AMSTRAD Marco con una (X) la(s) cinta(s) que deseo: 
O Cinta n.o 1 (contiene programas publicados en revistas 1 al 4 inclusive) 
O Cinta n.o 2 (contiene programas publicados en revistas 5 al 8 inclusive) 
O Cinta n.o 3 (contiene programas publicados en revistas 9 al 12 inclusive) 
O Cinta n.o 4 (contiene programas publicados en revistas 13 al 16 inclusive) 
O Cinta n.o 5 (conliene programas publicados en revistas 17 al 20 inClUSive) 
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o Deseo recibir en mi domicilio, al precio de 150 ptas. cada uno, los siguientes números atrasados de 
Microhobby AMSTRAD 


" '. 


Nota: Por razones administrativas, no podemos admitir solicitudes de envío de cintas o numeras sueltos con pago con Ira reembolso o 
Tarjeta de Crédilo. Por lavar, envia talón por el imporle o giro postal. 
Si la forma de pago elegida es lalón bancario, remitelo Junio con esle cupón en un sobre cerrado a la misma direCCiÓn. 
Las cintas de programas se edllan una cada mes. Si solicilas varias las reciblras sucesivamente, conlorme sean editadas. No se cobran 
gastos de envio por las cintas y números sueltos. 


NOMBRE 
APELLIDOS 
DOMICILIO 
CIUDAD 
C. POSTAL 


EDAD 


TELEFONO 


PROVINCIA 
PROFESION 


Marco con una (X) en el casillero correspondiente la forma de pago que más me conviene. 
O Talón bancario adjunto a nombre HOBBY PRESS, S, A. O Giro Postal N." 


Firma: 
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AMSTRAD Je propone Ja soJución más 
completa al ordenador personal y al proceso de 
textos, EJ sistema PCW 8256 le ofrece, por el 
precio de una máqUina de escnbir. un ordenador 
personal de 256K con teclado profesional y 
caracteres en castel/ano (ñ, acentos, etc). Una 
pan tal/a de fósforo verde de alta resolución 
(90 col. x 32 Jm.). con una unidad de disco de 
3" (180K por cara) mtegrada en el moni(Or (con 
opClon de mtegrar un segundo disco de 1Mb) y 
una impresora de tex(Os de alta calidad con 
diversos tipOS de letra. 
Imprime tanto hOJa a hOJa como papel 
contmuo y tiene una alineaClon automática de 
papel. junto con el sistema PCW 8256. se 
summlstla eJ procesador de textos LOCOSCRIPT 
(totalmente en castelJano) el cual tiene 
reservadas. teclas especifIcas de control). 


[ 



 , -:- -r';.¿;/ y 
;>1: / 
\ 'd. "'))-,11"'/./ 
...
)liJ jJ
 }-. 

"),/'/ 
I)J.).--S( . 
v }I'-) -)1 1 
....
/


}
}I'..>', \ 

"..J
 ....... í/ ../
 ,"i 
,. ¿,;
'
7/;"
,

;
'¿ 1 ' 
, , / ,(.. , 


11 


ti 


/" 


..... 


11 


" , 
" 
11- \\ 
,11" 
1,' 
.1\'í'.\ 
I \ I ¡ 
 
I " 
 '1 
t I 
 ." 
. \ \ i \ \ 


, 



. 


¡. 


UN EQUIPO 
EXTRAORDINARIO 


Pero esto no es todo. El PCW 8256, al 
traba/al' con el Sistema Operativo CPIM Plus, con 
un extra de gra(¡cos CSX tiene la posibilidad de 
acceder a los mejores programas profesionales 
del mercado: Super-calc 2, MuJtlplan, dBase 11. 
ete.. así como a todo tipO de lenguaJes' PASCAL. 
COBOL. FORTRAM, FORTH. etc. 
ASimismo, graCias al programa Dr. LOCO, que 
se sum,nrstra con eJ Sistema PCW 8256, se tiene 
un mmenso campo de posibilidades en el mundo 
de la enseñanza, 


LO MAS NUEVO EN SU 
AMSTRAD PCW 8156 


Disponer del sistema AMSTRAO 8256, es 
tener en Ja mano la última tecnoJogla punta a 
preCio de excepClon. 
Trabajar con "disco virtual» o. simplemente. 
oper'ar con «(¡cheros mdexados. era. hasta hace 
poco, solo Imagmable en eqUipos muy 
so(¡stlcados y de alto preCiO. 
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El Sistema Informático 
PCW 8156 incluye en su 
suministro: 


- Teclado profesional, 
Umdad de Disco. 
- Pantalla de alta resoluCiÓn. 
- Jmpresora. 
- Programas en disco: 
- Mallard BASIC con sistema jETSAM para 
(¡cheros mdexados. 
Sistema Operativo CPIM PJus. 
- Procesador de textos LOCOSCRIPT. 
- Lenguaje O/
 LOCO. 
. DIVersas Utllrdades. 
Completa documentaCión y manuales en 
castellano. 
- GARANTIA AMSTRAD ESPAÑA 
UN/CA VALIDA PARA ACCEDER 
AL SERVICIO TECN/CO OFICIAL. 


1; {
 (! 


ESPAfJA 
GARANTIA IN DESCOMpill [u]
TIrnffi[E 
Avd. del Mediterráneo. 9 - 28007 Madrid Te/s. 43345 48 - 433 48 76 - Telex 47660 FAX - 4332450 
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Con el obi 
ciones entre lo 
MERCADO CC 
nos para publi< 
que relacionac 
mundo se ajus1 
continuación. 
En MERCAD< 
anuncios de VI 
usuarios de A/I. 
y en general CI 
que pueda servir de utilidad a nuestros 
lectores. 
Envíanos tu anuncio mecanografiado 
a: HOBBY PRESS, S.A. 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
¡ABSTENERSE PIUTASI 


................. 


Quisiera establecer contacto con 
usuarios de Amstrad en Granada, 
para cambiar listados e ideas. 
Preguntar por Miguel llamando el 
T el. 22 36 66 o bien escribiendo a 
Cuesta / Escoriaza, 9 - l. o B. 
Granada. 


................. 


De particular a particular 
Amstrad. Por reciente viaje a 
Inglaterra, vendo 12 de los 
mejores juegos del mercado inglés 
a precio español. Entre ellos el 
James Bond 007, A view to a kill, 
Brian Bloodaxe de los Monthy 
Pitan, Danger Mouse, Defender 
(versión Amstrad del clásico BBe) 
Dragon's Gold y el famoso Rally 
11. Llamar al (96) 332 12 72 de 
Valencia y preguntar por José. 
José Feo. Sanfeliú Gimeno. Barón 
de Cárcer, 32, 8. o - 15. 0 46001 
Valencia. 


................. 


Vendo Amstrad 464 fósforo 
verde por 35.000 ptas. Está como 
nuevo (2 meses). También 
vendería 10 programas de juegos 
a 500 ptas. cada uno. Entre ellos 
tengo Rocky, Knight Lore y 
Combate Libre. Maite Uñarte 
Murua. Apdo. 1.582. Bilbao. 
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HOBBY PRESS,S.lJ. 


Apartado de Correos 


n." 54.062 (Apartados Altos) 


MADRID 


Cambio programas Amstrad, 
sólo comerciales, más de 100 
títulos, entre ellos últimos éxitos. 
The Way of Exploding Fist, 
Gremlins, copiones, utilidades, etc. 
E. Valderas Fdez. Apdo. 41. 
Puertollano (Ciudad Real). 


................. 


GANA 100.000 PESETAS CON 
MICROHOBBY AMSTRAD SEMANAL 


Porque pretendemos que AMSTRAD SE. 
MANAL sea también vuestro revista, hemos 
abierto una sección en la que se publicarán los 
mejores programas originales recibidos en nues. 
tra redacción. Vosotros seréis los encargadas de 
realizar estas páginas, en las que podréis apor. 
tar ideas y programas interesantes para otros 
lectores, 
Las condiciones son sencillas: 
- Los programas se enviarán a AMSTRAD 
SEMANAL en una cinta de cassette, sin protec- 
ción en el software, de forma que sea posible 
obtener un listado de los mismos. 
- Cada programa debe ir acompañado de 
un texto explicativo en el cual se incluyan: 
- Descripción general del programo, 
- Tabla de subrutinas y variables utilizadas, 
explicando claramente la función de cada 
una de ellas. 
- Instrucciones de maneia. 


- Todos estos datos deberán ir escritos a má- 
quina o con letra clara poro mayor comprensión 
del programo, 
- En una sola cinta puede introducirse mós 
de un programa. 
- Una vez publicado, AMSTRAD SEMA. 
NAL abonará al autor del programa de 
15.000 a 100.000 pesetas, en concepto de 
derechos de autor, 
- Los autores de los programas selecciona. 
dos para su publicación, recibirán una comuni. 
cación escrita de ello en un plazo no superior 
a dos meses a partir de la fecha en que su pro. 
grama llegue a nuestra redacción, 
- AMSTRAD SEMANAL se reserva el de. 
recho de publicación o no del programa. 
- Todos los programas recibidos quedarán 
en poder de AMSTRAD SEMANAL, 
- Los programas sospechosos de plagio se- 
rán eliminados inmediatamente. 


¡ENVIANOS TU PROGRAMA! 
Indicando claramente en el sobre: 


AMSTRAD SEMANAL 
a HOBBY PRESS, S. A. La Granja, n.o 8. PoI. Ind. Alcobendas (Madrid) 
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AMSTRAD le propone la solución más 
I completa al ordenador personal y al proceso de 

 textos. El sistema PCW 8256 le ofrece, por el 
precio de una máqUina de escnblr. un ordenador 
personal de 256K con teclado profesional y 
caraeleres en castellano (ñ, acentos, etc.). Una 
pantalla de fósforo verde de alta resolución 
(90 col. x J2 /in). con una unidad de disco de 
]" (180K por cara) mtegrada en el momtor (con 
opción de mteglar un segundo disco de 1Mb) y 
una impresora de textos de alta calidad con 
diversos tipOS de letra. 
Impnme tanto hOja a hOla como papel 
contmuo y tiene una almeación automatlca de 
pdpel. junto con el sistema PCW 8256. se 
summlstl d el procesador de textos LOCOSCRIPT 
(totalmente en castellano) el c(ldl tiene 
reservadas, teclds especif¡{:as de control). 
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UN EQUIPO 
EXTRAORDINARIO 


Pero esto no es todo. El PCW 8256. al 
trabajar con el Sistema Operativo CPIM Plus, con 
un extra de graflcos CSX tiene la posibilidad de 
acceder a los mejores programas profesionales 
del melcado. SuperCalc 2, Multlplan. dBase II 
etc.. así como a todo tipO de lenguajes: PASCAL. 
COBOL. FOR TRAM. FOR TH etc. 
ASimismo, graCias al programa Dr. LOCO, que 
se sum,mstra con el Sistema PCW 8256, se tiene 
un mmenso campo de posibilidades en el mundo 
de la enseñanza. 


LO MAS NUEVO EN SU 
AMSTRAD PCW 8156 


Disponer del sistema AMSTRAD 8256, es 
tener en la mano la ultima tecnologla punta a 
preCio de excepCión. 
Trabalar con .dlsco virtual. o. simplemente, 
operdrcon .flcheros indexados> era, hasta hace 
poco, 5010 Imagmable en equipos muy 
so(¡stlcados y de alto precio. 
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El Sistema Informático 
PCW 8156 incluye en su 
suministro: 


- Teclado profesional. 
- Unidad de D,sco. 
- Pantalla de alta resoluCión. 
- Impresora. 
Programas en disco: 
- Mallard BASIC con sistema jETSAM para 
ficheros ,ndexados. 
- Sistema Operativo CPIM Plus. 
- Procesador de textos LOCOSCRIPT 
Lenguaje Dr. LOCO, 
- Diversas Ulilidades. 
Completa documentaCión y manuales en 
castellano. 
GARANTIA AMSTRAD ESPAÑA 
UNICA VALIDA PARA ACCEDER 
AL SERVICIO TECNICO OFICIAL. 
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ESPAKIA 


GARANTIA IN DESCOMpm [U]
urnffi 
 
Avd, del Mediterráneo. 9 - 28007 Madrid Tels, 433 45 48 - 433 48 76 - Telex 47660 FAX - 4332450 
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Simulación tridi. 
mensional de un com- 
bate de boxeo. Lucha 
con Ira CIMBEL- 
LI". TED MATA. s f 
RE. JANSE/Ii SINO 
y flGHTER BULL 
para alzarle con el Ií. 
lulo mundial. 
SPECTRUM 48 K 1.800 ptas. 
AMSTRAU CPC 464. 2.100 ptas. 
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Servimos a tiendas y almacenes telf. (91) 447 34 ]0 Telex 22542 JAGA E 
Pedidos contrareembolso (Sin G/E )' adhesivos regalo) a: 
"MANSION" DlNAMIC: C/ Tilos. 2!
] MONTEPRINCIPE, BOADlLLA DEL MONTE, MADRID TELF. (91) 7150067 



